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16.  Abstract  (Limit:  200  laorda) 


y  The  Sea  Duct  Ocean-Bottom  Laboratory  is  a  computer  controlled  recirculating  inverted  flume  for  the  in-situ  study  ! 
of  sediment  transport.  It  is  designed  to  measure  the  sea  floor  response  to  controlled  currents  analogous  to  those 
generated  by  surface  waves,  tidal,  or  deep  ocean  storms. 

The  external  support  frame  is  an  equilateral  triangle  with  sixteen  foot  sides.  It  is  12  feet  high,  has  an  air  weight  of 
12,500  lbs.,  and  a  2800  lb.  submerged  weight  Three  lead  add  battery  packs  located  at  the  vertex  of  the  triangle  legs 
provide  power  for  the  recirculating  water  pumps,  hydraulic  power,  and  ancillary  equipment 
The  inner  rotatable  structure  consists  of  a  4  foot  long  by  2  foot  wide  open  bottom  windowed  test  section  that  is  9  inches 
high.  It  is  connected  to  30  feet  of  8  inch  tube  conflgured  as  an  elongated  toroid.  Above  the  test  section  is  a  traverse 
carriage  with  stereo  camera,  flash,  and  a  laser  Dojqder  velocimeter  to  measure  fluid  stresses. 

Internal  flow  velocities  ate  controlled  and  ciui  be  ramped  up  to  approximately  2  fl/sec  providing  shear  stress  suffident 
to  scour  sand,  silts,  and  fine  clays.  Water  and  sediment  sampling  devices  obtain  specimens  from  inside  and  outside 
the  test  sectioa 
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Appendix  A 
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Sea  Duct  Sequencer 

Prograa  Generation  and  Sample  Program 


Sea  Duct  sequencer  programs  are  written  in  a  high  level  language  designed 
specifically  for  the  Sea  Duct.  An  example  of  a  sequencer  program  is  found  in 
this  appendix.  The  specific  commands  are  described  in  the  electrical  section 
of  this  text.  The  commands  may  be  put  in  a  text  file  (source  code)  using 
using  a  word  processor  in  the  non-document  mode.  The  file  is  given  a  ".MAC" 
extent  and  then  assembled  and  linked  using  Syscon's  MIS  and  L13.  An  example 
of  typical  commands  to  the  assembler  and  linker  are  given  on  the  first  page  of 
the  following  sequencer  listing.  The  output  listing  is  given  a  ".?RN"  extant. 
The  output  file  (object  code)  may  be  loaded  into  RAM  or  EPROM  for  use  in  Sea 
Duct.  Details  of  the  assembly  /  link  procedure  may  be  found  in  Appendix  A  and 
in  the  Syscon  Manual. 

Vhen  read  by  the  assemblier,  each  high  level  command  is  converted  into  a 
string  of  sequencer  Pseudo  Program  Codes  (PPCs) .  Each  high  level  command  is 
called  a  macro-instruction.  During  assembly,  an  "INCLUDE"  file  labeled 
ISDEQ.MAC  is  added  to  the  source  file  and  is  used  to  translate  from  the  macros 
to  the  PPCs.  See  line  45  of  this  example.  Although  the  actual  file  listing 
is  inhibited  in  this  example,  a  copy  of  the  file  is  present  at  the  end  of  the 
listing.  It  is  possible  to  use  higher  level  macros  to  call  other  macros  and 
to  create  macro  subroutines.  Several  examples  of  these  may  be  found  in  the 
file  ISDSUB.MAC  which  is  also  included  at  the  end  of  this  appendix. 


Aooesslon  for 

Hris  GRAkI 
DTIC  TAB 
Uiianaauoatd 
Justlfioatlaa. 


□ 

□ 


By - 

Dlstrlbutlen/ 


Avalleblllty  Codes 


Dial 


Avail  and/or 
Syealal 


A-1 


2 

3 

4 
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SEA  DUCT  SEQDEICES  PSOGEAH 


6 

1 

8 

3 

10 

11 

12 

13 

14 

15 

16 
17 
13 
IJ 
20 
21 
22 

23 

24 

25 

26 
27 
23 

29 

30 

4  4 

a 

32 

33 

34 

35 

36 

37 
33 

39 

40 

41 

42 

43 

44 

45 

46 

47 
43 

49 

50 

51 

52 

53 

54 
5$ 
56 


HOSE  Cruise  3  127  SEPT  36 
SEA  DUCT  OSPLOTHlEn  •  EXP  3 

SGBm  411X127  23  SEP  36 

PEEV.  7EESI0I  3mi27  27  SEP  36 

PSET.  7EISI0I  201127  26  SEP  36 

PIET.  TEISIOI  imi27  25  SEP  36 

PSET.  TEISIOI  301126  23  SEP  86 

PEET.  TEISIOI  601126  13  SEP  36 

PIET.  TEISIOI  101126  03  SEP  36 


i.  S.  TEllY 

IlCLODE  PILES  EEQailZD: 

ISDSEQ.IAC  ;  Sea  3aet  PPC  lacros 

IS0DA77.IAC  ;  Sea  Duet  Data  series  sn^routine 

ISOSni.UC  ;  Sea  Duet  Semester  lacro  subroaciaes 

late:  Eadiz  is  set  to  base  16  in  ISDSEQ.IAC  -  All  paraieters  passed  ta 

tbe  uero  calls  lie.  all  paraieters)  inst  be  EEX  (ie.  lOD  sot  allovedl. 

Asseible  osino  113  SDDESPn,>SDDEEPn/E/C 

Link  Osino  L13  /P;3000/D:3700,SDDEZPn,SDDEEPn/l/X/E 
for  '.SEI"  file.  Use  MASIC  HIECA  to  get  MCA"  file. 

Link  OsinG  L13  /P:3000/D:3700,SDSEEPn,SODEEPn/9/E 
for  *.COI*  file.  Use  30X1  to  burn  a  proi. 

Pori  is:  H13  Source, ^Eeloeatable/E/C 

CEEP  30  EelocatabIe>Print  file  (then  erase  .CEP  file! 

L13  /P:?roG  start  addr/D:Oata  start  addr,Eelocatable,3bject/Cpcians 
Pile  extents  can  be  oiitted.  See  Sfscon  Eanual  for  details. 


.SALL  ;  Use  for  Geieration  of  object  code  only. 
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57 

53 

59 

60 


.XALL  ;  Use  for  deaeration  of  object  code  aitb  source  code 

.LALL  ;  Use  for  generation  of  conplete  aacro  text. 
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61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

31 

32 
83 

34 

35 

36 

37 

38 


ttitHitititttttktHtttHitttttttttHtitittttttttlittttttttttttttttttttttttttttt 

SEA  DUCT  PINGER  CODES 


0  Prograi  Start, 

End  Trassiiss.  Test, 

1  Start  Transiiss.  Test, 
SegiasiaG  Rotation, 

On  Bottoi, 

2  End  of  Rotation 

3  Start  of  Insertion 

4  Insertion  'OR* 

5  Insertion  *3ad* 

6  Start  Core 

7  Start  of  Velocity 

tleasuertent  Series 


8  Off  the  botton 

9  OR  to  lift  and  love  to 

a  nev  position 

A  XYZ  Position  Error 
3  Rotation  Error 
C  Tilt  'OR’ 

D  Tilt  'Bad’ 

E 

?  Ready  to  drop  aeight 


; Ittkftktiftttltftttttttttttttllttttktltttkttttttltktttttttltttttttlttitttttiititt 
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89 

90  .tttittitittttti  SEA  DUCT  SEQUENCER  PSUEDO  PROGRAM  BEGINS  HERE 

91  : 

92 

93  ;  Nhile  on  deck  ve  record  individual  sysce*  batteries.  Tiae  is 

94  ;  included  to  block  the  transiissoaeter  beai  as  a  check. 

95  : 


96 

97 

0000  ' 
0000' 

4D 

r 

START:  INITC 

; INITIALISE,  CLEAR  COUNTERS 

DB  4DH  :Clear  stacks,  nodes,  PPCCNT,  Counters 

98 

99 

100 

0001' 

E031 

+ 

ADON 

;A/0,  TRANSMISSOMETER,  RECORDER  ON 

ON  0E031H  ;A/D  ON 

101 

102 

0003' 

S041 

+ 

IRON 

DN  0E041H  ;Transiissoaeter  ON 

103 

104 

0005' 

E051 

SOON 

DN  0E051H  ;Sea  Data  Recorder  ON 

105 

106 

107 

0007' 

3000 

t 

SEND  0 

;SEND  FINGER  CODE  3 

DN  (3000H  *  0)  :Push  Pinger  Code  on  ASTR 

108 

0009' 

E024 

DN  OE024H  ;Seod  Pinger  Code  (on  ASTR) 

109 

110 

OOOB' 

EOCO 

+ 

CAMERA 

;CIECR  THE  CAMERA 

DN  OEOCOH  (Take  a  Picture 

111 

112 

113 

114 

OflOD' 

soil 

3AT  1 

IRECORD  BATTERY  91  VOLTAGE 

DN  lOEOlOH  +  11  ;?ulse  Main  Battery  Relay  In 

115 

116 

OOOF' 

60 

+ 

NAIT20 

;  BAT.  11  ON  FOR  20  SEC,  OFF  FOR  20  SEC. 

DB  60H  ;Go  to  Sequencer  Subroutine 

117 

0010' 

0409' 

T 

DN  N20 

118 

119 

0012' 

soil 

t 

3AT  1 

DN  lOEOlOH  +  1!  ; Pulse  (fain  Battery  Relay  In 

120 

121 

0014' 

60 

t 

iiAIT20 

DB  50H  :Go  to  Sequencer  Subroutine 

122 

3015' 

0409' 

+ 

DN  N20 

123 

124 

125 

126 

0017' 

E012 

1 

3AT  2 

.•RECORD  BATTERY  12  VOLTAGE 

DN  (OEOlOH  +  2)  iPulse  Main  Battery  Relay  la 

127 

128 

0019' 

60 

+ 

i(AIT20 

:  BAT.  12  ON  FOR  20  SEC,  OFF  FOR  20  SEC. 

DB  60H  ;Go  to  Sequencer  Subroutine 

129 

OOIA' 

0409' 

+ 

DN  N20 

130 

131 

OOIC 

S012 

BAT  2 

ON  (OEOlOH  +  21  :Pulse  Main  Battery  Relay  In 

132 

133 

OOIE' 

60 

HAIT20 

DB  BOH  ;Go  to  Sequencer  Subroutine 

134 

OOIF' 

0409' 

DN  N20 

135 

136 

137 

138 

0021' 

E013 

+ 

BAT  3 

.•RECORD  BATTERY  13  VOLTAGE 

DN  (OEOlOH  +  3)  (Pulse  Main  Battery  Relay  In 

139 

140 

0023' 

60 

+ 

IAIT20 

;  BAT.  13  ON  FOR  20  SEC,  OFF  FOR  20  SEC. 

DB  BOH  (Co  to  Sequencer  Subroutine 

141 

0024' 

0409' 

+ 

DN  N20 

142 

143 

0026' 

E013 

+ 

BAT  3 

ON  (OEOlOH  +  3)  (Pulse  Main  Battery  Relay  In 

PACE  1-4 


KACRO-IS  3.36 
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144 

145 

0028' 

60 

•f 

'4AIT20 

146 

0029' 

0409' 

+ 

147 

148 

149 

150 

0023' 

EOll 

+ 

SAT  1 

151 

152 

002D' 

E012 

t 

SAT  2 

153 

154 

002F' 

E013 

+ 

BAT  3 

155 

156 

157 

153 

0031' 

EOCO 

CAMERA 

159 

160 

131 

0033' 

,iWl 

t 

SEND  1 

162 

00^ 

'■  E024 

165 

166 

0037  ' 

60 

> 

HAIT2M 

167 

0038' 

043F' 

+ 

163 

169 

170 

003A' 

3000 

+ 

SEND  0 

171 

903C' 

E024 

«  ^  A 

i/4 

173 

174 

175 
175 
177 
173 

tttiittttitttt 

At  tbis 
is  NOT  enable 
Tbe  transiiss 

179 

130 

181 

132 

133 

134 

135 

136 

137 

138 

139 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 


D3  60B 
3E  »20 


;Go  to  Se(^uincer  Subroutine 


;TDRS  OH  ALi  SYSTEM  BATTERIES 

DH  lOEOlC®'" *  1)  :Pulse  Main  Battery  Relay  tn 

Dl  (OEOlOH  +  21  iPuise  Main  Battery  Relay  in 

OH  (OEOlOH  +  3)  :?ulse  Main  Battery  Relay  fn 


OH  OEOCOB 


;Talte  a  Picture 


;SEHD  CODE  *1"  TO  3I55AL  TRASSMISSOMETER  TEST: 
DH  (3fl00H  +  1)  :?ush  Pinger  Code  on  ASTR 

DI  0E024H  ;Send  Pinger  Code  (on  iSTR) 

:HAIT  FOR  2  MIHDTSS  TO  ALLOH  FOR 
:  TRAHSMISSOMETER  CHECK 
OB  60H  ;Go  to  Sequencer  Subroutine 

OH  H2M 

;SEHO  PINGER  CODE  0 

OH  13000H  +  01  ;?usb  Piaget  Code  on  ASTK 

DH  0E024H  ;Send  Piaget  Code  (on  ASTK) 


transiisslon  saiple. 


003E' 

003E' 

30 

♦ 

DIVE:  PUSH  1,0AH 

:REST  FOR  08  Min.  DURING  LAUNCH 

OB  12FH  +  11  ;?ush  Data  on  ASTK 

fl03F' 

OA 

+ 

DB  OAH 

0040' 

32 

HAITF  MIH 

OB  82B  ;Hait  for  interval  of  Min  on  ASTK 

0041' 

0041' 

E051 

-t- 

TCHKl:  SDOH 

DH  0BO513  ;Sea  Data  Recorder  ON 

0043  ' 

£031 

■f 

ADOH 

DH  0E031H  ;A/D  ON 

0045' 

E041 

+ 

TROH 

1 

DH  0E041H  ;Transiissoieter  ON 

0047' 

0047' 

C4 

OHBOT?:  HOOP 

;HAIT  TILL  HE  ARE  OH  THE  BOTTOM 

DB  0C48  ;Ho  Operation 

0048'  EOFO 


BRBOT  OIBOT 


DR  OEOFOH 


iSrancIi  i(  Bottoi  Si  to 
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200  004A'  004F' 

201 

202  004C’  28 

203  004D'  0047' 


JUMP  OSBOT? 


DR  OHBOT 

OB  28S 
D»  ONBOT? 


;Address 

:Juip  To  ??C  a: 
.•Address 


tttittttxtttttttittttttttttttuttttlttttittttttitttttttttttlttttttttittttitttt 

!le  are  on  the  bottoa.  ile  send  signal  1  and  then  see  ir  ae  are  level. 


211 

004F’ 

ONBOT: 

SEND  1 

ISEND  PINGER  CODE  1 

212 

004F' 

3001 

•f 

j'N  :30033  +  1)  ;Push  Pinger  Code  on  ASTR 

213 

0051' 

E024 

+ 

DN  0E024H  ;Send  Pinger  Code  !on  ASTK) 

214 

1 

215 

ADON 

:TDRN  ON  A/D  AND  RECORD 

216 

0053' 

E031 

+ 

D*  OE031H  ;A/D  ON 

217 

SOON 

213 

0055' 

•051 

r 

DH  0E0513  ;Sea  Data  Recorder  ON 

219 

IRON 

220 

0057  ' 

S041 

+ 

DN  3E041H  ;TraosiissoBeter  ON 

221 

1 

222 

CAMERA 

ITARE  A  PICTURE 

223 

0059' 

EOCO 

« 

DN  OEOCOH  ;Take  a  Picture 

224 

'i(AIT20 

;NAIT  20  SEC  TO  GET  TILTS  RECORDED 

225 

3053' 

60 

t 

DB  601  ;So  to  Sequencer  Subroutine 

226 

305C' 

0409' 

+ 

DN  N20 

227 

; 

228 

305E' 

TLTIH: 

CHETLT 

ICIECR  TILTS,  SEND  SIGNAL  TO  SURF.ACE  !C=OK,  D^oADl 

229 

005E' 

S070 

•f 

DN  0E070H  iCheck  Roll,  Pitch:  Send  Signal 

230 

231 

■ 

1 

232 

1 

;SET  COUNTER  "A"  FOR  DEFAULT  CONTINUATION  AT  ROT.ATE 

233 

• 

t 

:IF  SURFACE  COMMAND  IN  NOT  RECEIVED  IN  2  KIN. 

234 

3ETCTA  0781, 

INSERT 

235 

0060' 

A1 

+ 

DB  OAll 

236 

0061' 

0075 

+ 

DN  0781  :Set  Counter  A  ilea  Seconds! 

237 

0063' 

0084' 

i- 

DN  INSERT  ;  Counter  A  Vector  iNhen  count  -  I 

238 

239 

1 

240 

f 

;NAIT  FOR  SURFACE  SIGNAL 

241 

0065' 

RPLYl?: 

3RCMD1  INSERT 

:  CMD  ’1*  =  GO  TO  INSERT 

242 

0065' 

E0F8 

t 

DN  0E0F8R  : Branch  if  XPONDR  CMD.  1  Received  to 

243 

0067  ' 

0084' 

DN  INSERT  ; Address 

244 

BRCND2  LIFTl 

;  CMD  ■2''  =  GO  TO  B 

245 

0069' 

E0F9 

DN  0E0F9B  ; Branch  if  XPONDR  CMD.  2  Received  to 

246 

0063' 

0070' 

+ 

DN  LIFTl  : Address 

247 

JDMP  RPLYl? 

248 

006D' 

28 

DB  281  ;Juap  To  PPC  at 

249 

006E' 

0065' 

+ 

DN  RPLYl?  lAddress 

250 

J 

251 

t 

252 

0070' 

LIFTl: 

IHITC 

253 

0070’ 

4D 

DB  4DB  ;Clear  stacks,  lodes,  PPCCNT,  Counters 

254 

SEND  9 

:HERE  NE  LIFT  TIE  SEA  DUCT  AND  MOVE  TO  A  NEN  POSITION 

255 

0071' 

3009 

DN  130001  ^  91  ;Pusb  Pinger  Code  on  ASTK 

XlCRO-18  3.36 
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256 

3073’ 

5024 

t 

38  3E024i  ;Send  Finger  Code  Ion  ASTR) 

257 

3075' 

0FF3OT:  HOOP 

253 

3075' 

C4 

T 

OB  0C4H  ;A'a  Operation 

259 

3RB0T  OFFBOT 

2SQ 

0076' 

SOfO 

t 

0*8  OEOFOH  ; Branch  if  Bottoi  Su  to 

261 

0078' 

0075' 

38  OFFBOT  Address 

262 

seed  8 

:SEID  OF?  30TTOS  SIOIAL 

263 

007X' 

3008 

38  (30008  +  8)  ;?ush  Finger  Cade  on  A3TK 

264 

007C' 

£024 

* 

38  0E024B  ;Send  Finger  Code  (on  kill) 

265 

VAIT60 

266 

007E' 

60 

+ 

3B  638  ;Go  to  Sequencer  Subroutine 

267 

007?' 

0423' 

01  860 

263 

ulKP  QIBOT? 

;GO  TO  OHBOT? 

269 

0081' 

28 

♦ 

DB  28H  ;Ju»p  To  ??C  at 

270 

0082  ’ 

0047  ’ 

t 

08  OIBOT?  ; Address 

271 

272 

273 

274 

275 

276 

Re  are  read?  to  insert  tie  fluie.  Signal  "3"  is  sent  to  tie 

277 

surface.  Then  the  insertion  atteipt  is  lade.  Rhen  the  four  insertion 

278 

sense  switches  are  closed,  Signal  *3*  is  sent  and  insertion  is  stopped. 

279 

If  insertion  is  not  achieved  uithin  5  Xia.,  the  'insertion  had 

233 

(Sig.  '5*1’  is  sent 

8e  then  uait  for  a  surface  reply.  Surface 

231 

couand  *1*  »ili  continue  the  prograi  and  go  to  the  *RUSr  routine. 

2S2 

Surface  couand  *2* 

will  continue  insertion. 

233 

234 

235 

236 

3084' 

ISSERT:  ISIIC 

:ISITIALI2£  -  JUST  IH  CASE 

287 

0084' 

43 

T 

OB  4BH  iClear  stacks,  nodes,  PPCCIIT,  Counters 

233 

239 

LDYRST 

290 

3085' 

•030 

+■ 

38  3E0B0B  ; Reset  the  'u3V 

291 

292 

ciXERA 

293 

3087' 

EOCO 

4- 

08  fliOCOH  .Taite  a  Picture 

294 

3ESB  3 

;SESB  SIGHAL  '3*  -  START  OF  IXSERTICS 

295 

3089' 

3003 

+ 

38  130008  t  31  :Push  Finger  Code  on  ASTR 

296 

908B' 

E024 

+ 

38  0E024B  ;Send  Finger  Code  (on  ASTRi 

297 

298 

H73RA 

; START  TBE  BY3RAULIC  FUXF 

299 

008D' 

E0X8 

+ 

08  0E0A8B  ; Pulse  Bydiaulic  ?uip  Relay 

3Q0 

•LUSH 

;  START  TdE  FL'JME  IISERTIOI 

301 

008?' 

EOXC 

+ 

08  OEOACH  ; Insert  Fluie 

302 

333 

SETCTA  01A4H, 

IIBAB  :SET  THE  OUT  COUITER  FOR  7  XH. 

304 

0091’ 

K1 

+ 

OB  0A13 

305 

0092’ 

0U4 

38  01A4B  ;Set  Counter  A  (Hex  Seconds) 

306 

0094' 

OOA9' 

+ 

38  IHBA3  ;  Counter  A  ’/ector  !8hen  count  = 

30  > 

308 

0096' 

II?:  BRIIS  IIOK 

;8AIT  FOR  IISERTIOI  SIITCBES  TO  CLOSE 

309 

0096' 

son 

+ 

08  0E3F1B  .-Branch  if  Fluie  Inserted  to 

310 

0098' 

0093' 

+ 

38  HOI  ;  Address 

311 

JUSP  II? 

r- 
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312 

0Q3' 

28 

+ 

D3  28B 

:Ju»p  To  PPC  at 

313 

009B' 

0096' 

DS  IN? 

; Address 

315 

009D’ 

INOR:  CLECTA 

; CLEAR  COUNTER  A 

316 

009D' 

AO 

DB  0A03 

iClear  Counter  A 

317 

FLUKIN 

;STOP  THE  INSERTION 

318 

309E' 

SOAC 

T 

DR  OEOAC3 

;  Insert  Flme 

319 

HYDRA 

.•HYDRAULIC  PUMP  OFF 

320 

OOAO' 

E0A8 

T 

DR  0E0A8H 

: Pulse  Hjdraulic  Puap  Relay 

321 

SEHD  4 

:SEHD  SIGNAL  *4 

’  (INSERTION  OR) 

322 

00A2' 

3004 

+ 

DR  I3000E  4) 

:Push  Pinger  Code  on  ASTR 

323 

00A4' 

E024 

T 

DR  OE024B 

;Send  Pinger  Code  (on  ASTR) 

324 

JUMP  RUSl 

:GO  TO  'RUSl* 

325 

00A6' 

28 

DB  28H 

;Juap  To  PPC  at 

326 

OOA7' 

03C5' 

t 

DR  RUSl 

;  Address 

J  A  < 

328 

329 

330 

00A9' 

ISBAD;  FLUMIH 

:STO?  THE  INSERTION 

331 

00A9’ 

EOAC 

T 

DR  OEOACH 

.■Insert  Fluie 

332 

3RISS  ISQRU 

:JOST  IS  CASE 

333 

OOAB' 

EOFl 

T 

DR  OEOFIH 

iBranch  if  Fluae  Inserted  :o 

334 

OOAD' 

OOAO' 

• 

DR  INOR+3 

:Address 

335 

,* 

336 

HYDRA 

;STO?  THE  HYDRAULIC  PUMP 

•  •  •( 

30AF' 

:0A8 

DR  0E0A33 

•Pulse  Hydrauii:  Puap  Relay 

338 

SEND  3 

:SEND  SIGNAL  "5 

i INSERTION  3AD1 

339. 

2031' 

3005 

• 

DR  !3000H  ♦  5i 

.•Push  Pinger  Code  on  AST.R 

340 

341 

OOB3 ' 

•024 

DR  OE024H 

:Send  Pinger  Code  ,on  kill] 

342 

:SET  COUNTER  'A 

•OR  DEFAULT  CONTINUATION  IF 

343 

.•SURFACE  CONMANI 

IS  .NOT  RECEIVED  RITHIN  5  MIN. 

344 

SETCTA  012CH. 

RUSl 

345 

:0B5’ 

A1 

• 

DB  OAIH 

346 

30B6' 

:i:c 

DR  012CH 

:Set  Counter  A  ,3ex  Secunds; 

347 

0038' 

00C5' 

t 

DR  RUNl 

;  Counter  A  Vector  .Rben  count  =  OOGO 

348 

‘ 

349 

;RAIT  FOR  SURFACE  SIGNAL 

350 

003A' 

RPLY3?;  3RCSD1  RUSl 

:  CMD  •!*  =  JO  I 

0  RUSl 

351 

OOBA’ 

:0F8 

• 

DR  3E0F8H 

.■Branch  if  XPONDR  CMD.  1  Received  to 

352 

OGBC 

00C5' 

t 

DR  RUNl 

;Address 

353 

3RCMD2  IHSERT 

;  CMD  ■2"  =  30  T 

0  INSERT  TO  TRY  AGAIN 

354 

OOBE' 

E0F9 

♦ 

DR  0E0F9H 

: Branch  if  RPOSDR  CMD.  2  Received  to 

355 

OOCC 

0084' 

♦ 

DR  INSERT 

.•Address 

356 

JUMP  RPLY3? 

357 

00C2' 

28 

* 

DB  28B 

liuip  To  PPC  at 

358 

00C3' 

OOBA' 

t 

DR  RPLY3? 

; Address 

359 

360 

361 

362 

363 

; 

364 

365 

;  Re  are  aoi  ready  to  start  the  experiieot. 

366 

- 

367 

00C5' 

RUIl:  IIITC 

; INITIALIZE 
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368 

00C5’ 

4D 

t 

D3  4DB 

;Clear  stacks,  nodes,  PPCCNT,  Counters 

369 

ADON  ;A/D,  IXASS, 

RECORDER  OS 

370 

00C6' 

E031 

T 

DH  0E0313 

:A/D  ON 

371 

TROS 

372 

00C8’ 

E041 

+ 

D»  3E04iH 

iTransiissoieter  OS 

373 

SDON 

374 

OOCA' 

E051 

+ 

D8  OE0513 

;Sea  Data  Recorder  ON 

375 

376 

377 

8AIT51f  ;  MEASURE  2ER0 

■4SLOCITY  FOR  5  MORS  MIN. 

378 

OOCC 

60 

33  603 

;Go  to  Sequencer  Subroutine 

379 

OOCB' 

0443' 

+ 

38  85M 

330 

381 

CAMERA 

382 

OOCF' 

EOCO 

t 

D8  0E0C03 

.’Take  a  Picture 

333 

384 

PMrHLY  ;TUXH  OH  FLUME  PUMP  P08ER 

383 

OODl' 

EOAE 

38  OBOAEH 

;?ulse  Uater  Puap  Power  Relay 

386 

337 

PMPl  04QH  ;SET  P'JHPl  = 

403  125AI 

388 

00D3' 

D2 

T 

33  3D2H 

;Send  Data  On  SAIL  Loop  2 

339 

Q0D4' 

Q0D9' 

T 

38  ..0000 

;3ata  List  Address 

390 

OOD6' 

28 

T 

33  23H 

iJuap  To  ??C  at 

391 

00D7' 

00E5' 

r 

38  ..0001 

;Address 

392 

30D9' 

23  50  43  21 

» 

..0000:  33  ’tPCiPl' 

393 

3  ODD' 

50  31 

T 

394 

OODf 

30  34  30  43 

• 

33  ':40'3' 

395 

00E3' 

20 

t 

33  •  ' 

396 

30E4' 

?P 

t 

33  DONE 

397 

OOE5’ 

* 

..0001:  l:off 

398 

30E5' 

DO 

t 

33  ODOH 

:SA1L  Loop  2  Power  2if 

399 

00E6' 

E061 

38  OiOSIB 

:Set  P'CMPl  on  3P.4GE  =  Nl 

;oo 

30E8' 

40 

* 

33  0403 

401 

432 

G0SU3  DATRUN  :30  A  DATA  SERIES 

403 

0QE9' 

6(J 

33  603 

:Go  to  Sequencer  Subroutine 

404 

OOEA' 

0300' 

t 

38  DATRUN 

40f 

; DATRUN  SUB. 

RETURNS  'ilTl  NO  CHANGE  IN  R.V.L  PCSITi::: 

406 

407 

408 

tttlttttttttttltttttttfttttkttltlltltltttlttftkttktiilttttiittliitttittittiitti 

409 

410 

This  urAs  the  end  of  the  first  velocitj  leasureiest  series. 

411 

The  second  run  is  started. 

412 

413 

il4 

415 

OOEC 

iDN2;  INITC  ; INITIALIZE 

416 

OOEC 

4D 

♦ 

DB  4DH 

;Clear  stacks,  nodes,  PPCCNT,  Counters 

417 

418 

PMPl  0733  ;SST  PUMPl  = 

733  (458) 

419 

OOED' 

32 

+ 

33  0D2B 

;Send  Data  On  SAIL  Loop  2 

420 

OOEE' 

00P3' 

+ 

38  ..0002 

iData  List  Address 

421 

OOFO' 

28 

+ 

DB  28H 

;Juip  To  PPC  at 

422 

OOP!’ 

OOFP' 

f 

D8  ..0003 

lAddress 

423 

00P3' 

23  50  43  21 

+ 

..0002:  DB  ’fPCIPr 

PACE  1-9 
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424 

00F7' 

50  31 

+ 

425 

00F9' 

30  37  33  48 

+ 

426 

OOFD' 

20 

427 

OOFE’ 

FF 

+ 

428 

OOFF' 

429 

OOFF' 

DO 

t 

430 

0100' 

E061 

+ 

431 

0102' 

73 

t 

432 

433 

434 

0103' 

60 

f 

435 

0104' 

0300' 

+ 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

0106' 

447 

0106' 

4D 

r 

448 

449 

450 

0107' 

D2 

* 

451 

0108' 

OlOD' 

+ 

452 

OlOA' 

28 

♦ 

453 

OlOB' 

0119' 

454 

OlOD' 

23  50  43  21 

+ 

455 

0111' 

50  31 

+ 

456 

0113' 

30  38  44  48 

+ 

457 

0117' 

20 

+ 

458 

0118' 

FF 

+ 

459 

0119' 

+ 

460 

0119' 

00 

+ 

461 

OllA' 

E061 

462 

one 

8D 

+ 

463 

464 

465 

OllD' 

60 

466 

OHS' 

0300' 

467 

468 

469 

470 

471 

472 

473 

474 

475 

476 

477 

0120' 

478 

0120'  ' 

40 

479 

D3  'JllH' 

DB  ’  ' 

OB  DQIE 
..0003:  L20FF 

OB  OOOH  ;SAIL  Loop  2  Power  Off 

0»  0E061H  ;Set  PUMPl  on  GPACE  =  SI 

OB  313H 

GOSUB  OATRQN  ;00  A  DATA  SERIES 

OB  SOB  ;Go  ro  Sequencer  Subroutine 

OS  OAIRUX 

;OATROB  SOB.  RETORNS  SITH  .SO  CHAMCE  IS  X.F.S  POSITION 


ttttttttttttttutttitttttkttmttuttktttttttttutttttmtttttttttttttttttutt 

This  larks  the  end  of  the  second  velocity  leasureient  series. 

The  third  run  is  started. 


RUH3:  ISITC  ; INITIALIZE 

OB  403  .'Clear  stacks,  lodes,  PPCCNT,  Counters 


PNFl  08DH 


..0004: 


:SET  PUNPl  -  80H  (5541 
OB  0O2H  ‘.Send  Data  On  SAIL  Loop  I 

Oil  ..0004  ;Oata  List  Address 

OB  28H  ;Juip  To  PPC  at 

ON  ..0005  (.Address 

DB  •}PC!?1' 


DB  'OSOH' 

08  '  ' 

OB  DONE 
..0005:  L20FF 

DB  ODOH  ,‘SAIL  Loop  2  Power  Off 

DN  0E061H  (Set  PUNPl  on  GPAGE  =  N1 

DB  08DH 


GOSUB  DATRUI  ;DO  A  DATA  SERIES 

DB  60H  ;Go  to  Sequencer  Subroutine 

DM  DATRUN 

(DATRUH  SUB.  RETURNS  NITH  SO  CHANGE  IN  X.Y.Z  POSITION 


This  larks  the  end  of  the  third  velocity  leasureient  series. 
The  fourth  run  is  started. 


iioittttattitittttitttiiiitttititiiiitttttittittttttitittittiittitittttttttit 


t 


RDN4:  INITC 


: INITIALIZE 
DB  4DH 


(Clear  stacks,  lodes,  PPCCNT,  Counters 
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480 

PNPl  0408 

;SEI  POHP2  = 

40B  (2SV) 

481 

0121' 

02 

+ 

08  0028 

.-Send  Data  On  SAIL  Loop  2 

482 

0122' 

0127’ 

+ 

08  ..0006 

.'Data  List  Address 

483 

0124' 

23 

+ 

DB  288 

;Juap  To  PPC  at 

484 

0125' 

0133' 

+ 

01  ..0007 

.'Address 

486 

0127’ 

23  50  43  21 

+  ..0006: 

DB  ■tPClPl'' 

486 

012B' 

50  31 

t 

487 

012D' 

30  34  30  48 

+  08  '0408' 

488 

0131' 

20 

+  08  ’  ' 

489 

0132' 

FF 

^  03  DOIE 

490 

0133' 

+  ..0007:  L20FF 

491 

0133' 

DO 

t 

08  0008 

.‘SAIL  Loop  2  Power  Off 

492 

0134' 

E061 

+ 

DI  0E0618 

:Set  POMPl  on  GPAGE  =  81 

493 

0136' 

40 

08  0408 

494 

Gosufi  mil 

;00  A  DATA  SERIES 

495 

0137’ 

60 

+ 

DB  608 

;Go  to  Sequencer  Subroutine 

496 

0138’ 

0368' 

+ 

08  ORUHT 

497 

t 

;DATRDI  SUB. 

RETURNS  8ITB  CBAHGE  IN  Y  POSITION 

498 

f 

499 

t 

500 

•ttitttktkttttktitttttttttkitttttktttttlitittttttttttttttttittttttittttittt 

501 

* 

502 

;  This  larks  the  esd  of  the  last  velocity  leasureient  series. 

503 

504 

f 

505 

t 

506 

IHITC 

:IHITIALIZE 

507 

013A' 

40 

+ 

08  408 

;Clear  stacks,  lodes,  PPCCNT,  Coun 

508 

PNPOFF 

:TDRK  OFF  BOfS  PUlfPS 

509 

0138' 

02 

+ 

08  0028 

.'Send  Data  On  SAIL  Loop  2 

510 

013C' 

0141' 

+ 

08  ..0008 

,'Data  List  Address 

511 

013E' 

28 

+ 

DB  288 

:Juap  To  PPC  at 

512 

013t' 

0146* 

+ 

08  ..0009 

; Address 

513 

0141' 

23  50  43  58 

+  ..0008: 

OB  ’iPCX* 

514 

0145' 

FF 

1  08  OOHE 

515 

0146' 

t  ..0009:  120FF 

516 

0146' 

00 

+ 

OB  0008 

;SAIL  Loop  2  Power  Off 

517 

0147' 

E060 

+ 

08  OE0608 

.'Set  PUMP1,2  on  GPAGE  =  00 

513 

PMPRLY 

;TDRI  OFF  POMP  P08ER  RELAY 

519 

0149' 

EOAE 

♦ 

D8  OEOAEB 

:  Pulse  8ater  Pmp  Power  Relay 

528 

f 

521 

f 

522 

523 

t 

524 

t 

525 

PUSH  1,  DIES 

;8AIT  30  NIH 

526 

0148' 

30 

+ 

08  I2FH  +  11 

;Push  Data  on  ASTR 

527 

014C’ 

IE 

t 

08  OlEB 

528 

8AITF  RII 

529 

0140' 

82 

+ 

DB  82B 

;8ait  for  interval  of  Min  on  ASTR 

530 

t 

531 

CAKEEA 

532 

014E' 

EOCO 

+ 

08  OEOCOB 

;Take  a  Picture 

533 

t 

534 

;  Velocity  data  series  is  soe  dooe.  ie  are  ready  to  take  both  cores 

535 

t 
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536 

537 

538 

0150’ 

3006 

+ 

SEND  6 

539 

0152' 

E024 

+ 

540 

541 

542 

0154' 

E0A8 

t 

+ 

HYDRA 

543 

544 

545 

0156' 

EOAl 

t 

+ 

SEDINS  1 

546 

547 

0158' 

50 

r 

RAIT20 

548 

0159' 

0409’ 

4. 

549 

550 

015B’ 

60 

+ 

RAIT30 

551 

015C’ 

041B’ 

+ 

552 

553 

015E' 

EQAl 

SEDINS  1 

554 

555 

556 

0160' 

EOAl 

+ 

SEDUNL  1 

557 

556 

0162' 

60 

t 

RAIT30 

559 

0163' 

041B' 

t 

560 

561 

0165' 

EOAl 

t 

SEDUNL  1 

562 

563 

564 

0167' 

S0A2 

+ 

SEDRET  1 

565 

566 

0169' 

60 

t 

RAIT20 

567 

016A' 

0409' 

•r 

563 

569 

016C' 

60 

+ 

HAIT30 

570 

016D' 

0413' 

571 

572 

016F’ 

E0A2 

+ 

SEDRET  1 

573 

574 

575 

576 

577 

0171' 

EGAS 

r 

t 

1 

+ 

SEDINS  2 

578 

579 

0173' 

60 

+ 

RAIT2fl 

580 

0174' 

0409' 

+ 

581 

582 

0176' 

60 

+ 

RAIT30 

583 

0177' 

0413' 

■f 

584 

585 

0179' 

E0A5 

SEDINS  2 

586 

587 

588 

017B' 

E0A7 

+ 

SEDUNL  2 

589 

590 

017D' 

60 

RAITlfl 

591 

017E' 

041B' 

.•SIGNAL  START  OF  CORE 

D8  13000H  T  6)  iPush  Pinger  Code  on  ASTK 

DR  0E024H  iSend  Pinger  Code  (on  ASTK) 

: START  THE  HYDRAULIC  PUMP 

DR  0E0A8H  ;Pulse  HYdiaulic  Puip  Relay 

: START  SEDIMENT  1  INSERT 

DR  OEOAIH  ; Insert  Sediient  Saipler  81 

DB  60H  ;Go  to  Sequencer  Subroutine 

DR  R20 
;RAIT  30  SEC 

DB  SOB  ;So  to  Sequencer  Subroutine 

DR  R30 

.-STOP  SEDIMENT  1  INSERT 

DR  OEOAIR  .'Insert  Sediient  Saipler  81 

.•UNLATCH  CLOSES  THE  CORE  BOR  AND  TAKES  A  RATER  SAMPLE 
DR  0E0A3B  .'Unlatch  Sed.  Saipler  81,  Saiple  H20-1 
;RAIT  30  TO  LET  HYDRAULIC  PRES.  BUILD 
DB  60H  ;So  to  Sequencer  Subroutine 

DR  R30 

;2nd  UNLATCH  TURNS  OFF  THE  UNLATCH  PORER 

DR  0E0A3H  ;Unlatcb  Sed.  Saipler  81.  Saiple  H20-1 

; START  SEDIMENT  1  RETRACT 

DR  OEOA2H  .'Retract  Sediient  Saipler  81 

DB  60E  ;Go  to  Sequencer  Subroutine 

DR  R20 
:RAIT  30  SEC 

DB  60H  ;Go  to  Sequencer  Subroutine 

DR  R30 

;STO?  SEDIMENT  1  RETRACT 

DR  0EDA2H  .'Retract  Sediient  Saipler  81 


.'START  SEDIMENT  2  INSERT 

DR  0E0A5B  .'Insert  Sediient  Saipler  82 

DB  SOB  .'Go  to  Sequencer  Subroutine 

DR  R20 

:RAIT  30  SEC 

DB  60H  ;Go  to  Sequencer  Subroutine 

DR  R30 

;STOP  SEDIMENT  2  INSERT 

DR  0E0A6B  ; Insert  Sediient  Saipler  82 

; UNLATCH  CLOSES  THE  CORE  BOX  AND  TAKES  A  RATER  SAMPLE 
DR  0E0A7H  ;Unlatch  Sed.  Saipler  82,  Saiple  H20-2 
:RAIT  30  TO  LET  HYDRAULIC  PRES.  BUILD 
DB  SOB  ;Go  to  Sequencer  Subroutine 

DR  R30 
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592 

SEDUHL  2 

;2nd  DHLATCH  TDRHS  OFF  THE  DHLATCH  POMER 

593 

0180' 

S0A7 

+ 

DM  0E0A7H  ;Unlarch  Sed.  Sanpler  12,  Sanple  820-2 

594 

595 

SEDRET  2 

; START  SEDIREHT  2  RETRACT 

596 

0182’ 

E0A6 

+ 

DM  0E0A6H  ;Retract  Sediient  Saipler  12 

597 

'4AIT20 

598 

0184' 

60 

+ 

DB  60H  ;Go  to  Sequencer  Subroutine 

599 

0185' 

0409' 

+ 

DM  M20 

600 

RAITlfl 

;MAIT  30  SEC 

601 

0187' 

60 

+ 

DB  60H  ;Go  to  Sequencer  Subroutine 

602 

0188’ 

041B' 

+ 

DM  M30 

603 

SEDRET  2 

;STOP  SEDIREHT  2  RETRACT 

604 

018A' 

E0A6 

+ 

DM  0E0A6E  ;.Retract  Sediient  Saipler  42 

605 

606 

37DRA 

;STOP  THE  HYDRAULIC  PORP 

607 

018C' 

E0A8 

DM  0E0A8H  ;Pulse  Hydraulic  Puip  Relay 

608 

609 

610 

tUtttmttttttttttlilitttttttHttttttlLttttttttttttittitttttttttttttttttttttttt 

% 

611 

612 

Rove  X  aeai 

to  Xo. 

613 

614 

HYDRA 

.•START  THE  HYDRAULIC  PORP 

615 

018E' 

E0A8 

+ 

DM  0E0A8H  ;Pulse  Hydraulic  Puip  Relay 

616 

0190' 

£091 

DR  0E091B 

;ROVE  X- 

617 

iiAIT30 

613 

0192' 

60 

+ 

DB  60H  :Go  to  Sequencer  Subroutine 

619 

0193' 

0418' 

DM  MOO 

620 

HAITIO 

621 

0195’ 

60 

+ 

DB  60H  ;So  to  Sequencer  Subroutine 

622 

0196' 

0400' 

+ 

DM  MIO 

623 

0198' 

E091 

DM  0E091H 

;ROVE  X- 

624 

HYDRA 

;STOP  THE  HYDRAULIC  PURP 

625 

019A' 

E0A8 

+ 

DM  0E0A8H  ;Pulse  Hydraulic  Puip  Relay 

626 

627 

CAKERA 

628 

013C' 

EOCO 

DM  OEOCOH  ;Tahe  a  Picture 

629 

630 

631 

Me  are  ready  to  retract  tie  fluae.  Sigaal  "3’  is  sent  :o  :ie 

632 

surface.  Then  the  retraction  atteipt  is  lade.  Mhen  the  flune  retracted 

633 

sense  svitch  is  closed,  Signal  ”3’  is  sent  and  retraction  is  stopped. 

634 

If  retraction  is  not  achieved  within  6  Kin.,  the  'retraction  bad 

635 

ISig.  'S'l*  is  sent.  Me  then  wait  for  a  surface  reply.  CRD  '1'  will 

636 

direct  the  prograi  to  the  ’PIRI"  routine;  CRD"2"  will  continue  retraction. 

637 

638 

639 

640 

fll9B' 

RETRCT:  IRITC 

641 

019E' 

4D 

+ 

DB  4DH  ;Clear  stacks,  lodes,  PPCCHT,  Counters 

642 

SEID  3 

;SEID  SIGHAL  '3*  -  START  OF  RETRACTIOH 

643 

019F' 

3003 

+ 

DM  (3000H  *  3)  ;Push  Finger  Code  on  ASTX 

644 

OlAl' 

B024 

DM  0E024E  ;Send  Finger  Code  Ion  ASTX) 

645 

HYDRA 

; START  THE  HYDRAULIC  PDHP 

646 

01A3' 

E0A8 

+ 

DM  DE0A8H  ;Pulse  Hydraulic  Puip  Relay 

647 

FICMOOT 

; RETRACT  THE  FLUME 
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648 

649 

650 

01A5' 

SOAD 

+ 

SETCTA  OlEOH, 

651 

01A7' 

A1 

t 

552 

01A8' 

OlEO 

+ 

653 

654 

OlAA' 

OIBF' 

+ 

t 

655 

OlAC 

RET?:  BRRET  RETOR 

656 

OlAC 

E0F2 

T 

657 

658 

OlAE’ 

01B3' 

+ 

JUMP  RET? 

659 

OIBO' 

28 

t 

660 

661 

0131’ 

OlAC 

* 

1 

662 

01B3' 

RETOR:  CLRCTA 

663 

664 

01B3’ 

AO 

+ 

FLUMOUT 

665 

666 

01B4' 

SOAD 

HYDRA 

667 

668 

01B6' 

E0A8 

SEND  4 

669 

0138' 

3004 

670 

671 

OIBA' 

E024 

JUMP  SETTLE 

672 

313C' 

23 

+ 

573 

674 

675 

OIBD' 

OIDB' 

675 

OIBF' 

RETBAD:  FLUMOUT 

677 

678 

013F' 

EOAD 

3RRET  RETOR+3 

679 

Old’ 

E0F2 

+ 

630 

681 

682 

01C3' 

0136' 

+ 

HYDRA 

683 

684 

01C5' 

E0A8 

+ 

SEND  5 

685 

01C7' 

3005 

+ 

686 

687 

688 

689 

690 

01C9' 

E024 

+ 

SETCTA  016 8H 

691 

OICB' 

A1 

+ 

692 

OICC 

0168 

+ 

693 

694 

695 

696 

OICE' 

OIDB' 

697 

OIDO' 

RPLT4?:  BRCMDl  SETTLE 

698 

OIDO' 

E0F8 

+ 

699 

700 

01D2' 

OIDB' 

+ 

BRCMD2  RETRCT 

701 

D1D4’ 

E0F9 

702 

703 

01D6' 

019E' 

+ 

JUMP  RPLY4? 

DV  OEOADH  ;Retract  time 
RETBAD  ;SET  TIME  OUT  COUNTER  FOR  8  MIS. 


3B  0A13 

DN  OlEOH 

;SeC  Counter  A  (Hex  Seconds) 

DN  RETBAD 

;  Counter  A  Vector  (Nhen  count  =  COG 

DN  OEOF2H 

; Branch  if  Fluie  Retracted  to 

DN  RETOR 

; Address 

DB  28H 

;Jmp  To  PPC  at 

DN  RET? 

;Address 

; CLEAR  THE  TIME  OUT  COUNTER 

DB  OAOH 

iClear  Counter  A 

;STOP  THE  RETRACTION 

DN  OEOADH 

jRetract  Fluse 

:STOP  THE  HYDRAULIC  PUMP 

DN  0E0A8H 

;Pulse  Hydraulic  Puip  Relay 

;SEND  SIGNAL  *4' 

'  -  RETRACTION  OR 

DN  (3000H  i  4) 

;Push  Pinger  Code  on  ASTR 

DN  0E024H 

;Send  Pinger  Code  (on  ASTR] 

DB  28H 

iJunp  To  PPC  at 

DN  SETTLE 

;Address 

;STOP  THE  RETRACTION 

DN  OEOADH 

;Retract  Fluae 

;JDST  IN  CASE 

DN  0E0F2H 

;3ranch  if  Fluie  Retracted  to 

DN  RETOR+3 

;Address 

;STOP  THE  HYDRAULIC  PUMP 

DV  0E0A8H  ; Pulse  Hydraulic  Puip  Relay 

;SEHD  SIGNAL  *5'  (RETRACTION  BAD) 

DH  (3000E  *  51  ;Pu5b  Pinger  Code  on  ASTR 
DN  0S024H  ;Send  Pinger  Code  (on  ASTR) 

;SE7  COUNTER  'A'  FOR  DEFAULT  CONTINUATION  IF 
; SURFACE  COMMAND  IS  NOT  RECEIVED  NITHIN  6  MIN. 

SETTLE 
DB  OAIH 

Dl  0168E  ;Set  Counter  A  (Hex  Seconds) 

DN  SETTLE  :  Counter  A  Vector  (Nhen  count  =  OOOC 


INAIT  FOR  SURFACE  SIGNAL 
;  CMD  *1’  =  GO  SETTLE 

DN  0EQF8H  ;Sranch  if  RPONDR  CMD.  1  Received  to 
DN  SETTLE  ; Address 

;  CMD  '2*  =  GO  TO  RETRACT  AGAIN 
DN  OEOFBH  ;Brancli  if  XPONDR  CMD.  2  Received  to 
DN  RETRCT  ; Address 
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704 

01D8' 

28 

E3  28E  ;Juip  To  PPC  at 

705 

01D9' 

OIDO' 

■f 

D'3  RPLY4?  : Address 

706 

707 

708 

709 

710 

711 

At  this  point  the  fluie  is  retracted.  So*  we  will  wait  3  ain.  for 

712 

:the  water  to  clear. 

713 

714 

OIDB' 

SETTLE:  IIITC 

715 

OIDB' 

4D 

DB  4DB  iClear  stacks,  lodes,  PPCCST,  Counters 

716 

CAMERA 

;TA1[E  A  PICTURE 

717 

71  8 

OlDC 

EOCO 

+ 

DS  OEOCOH  :Take  a  Picture 

719 

SAIT59 

:»AIT  FOR  1  MIS. 

720 

OIDE' 

60 

4- 

DB  SOB  ;Go  to  Sequencer  Subroutine 

721 

OIDF' 

0424' 

+ 

Dl  «59 

722 

CAMERA 

;TAKE  A  PICTURE 

723 

OlEl' 

EOCO 

+ 

3B  OEOCOB  ;Take  a  Picture 

724 

725 

ilAIT59 

;»AIT  FOR  1  MIS. 

726 

01E3' 

60 

DB  SOB  ;Qa  to  Sequencer  Subroutine 

727 

01E4’ 

0424' 

■f 

Di  S59 

728 

CAMERA 

:TAltE  A  PICTURE 

729 

01E6' 

EOCO 

+ 

D8  OEOCOH  :Take  a  Picture 

730 

731 

UUii 

:»AIT  FOR  1  MIS. 

732 

91E8' 

60 

DB  SOB  ;Go  to  Sequencer  Subroutine 

733 

01E9’ 

0424' 

+ 

DB  B59 

734 

CAMERA 

;TARE  A  PICTURE 

735 

01E3' 

EOCO 

•f 

DB  OEOCOH  ;Take  a  Picture 

736 

737 

733 

739 

Itttttittttttttttftttitttftttkttttifttttttttttitikittttittitkttttkttiktkktttkttt 

740 

741 

Here  we  return  to  the  surface.  Haul  it  up. 

742 

743 

744 

DIED' 

FIHI:  ISITC 

;IHITIALIZE  JUST  IB  CASE 

745 

OlED' 

40 

DB  4DH  ;Clear  stacks,  aodes,  PPCCST,  Counters 

746 

SEID  F 

;SEBD  SIGHAL  *F''  -  HAUL  IT  UP 

747 

OlEE' 

300F 

+ 

DB  13009H  +  F)  iPush  Pinqer  Code  on  ASTE 

748 

OlFO' 

E024 

+ 

DB  0EO24B  ;Send  Pinqer  Code  (on  ASTE) 

749 

750 

751 

01F2' 

GOBOHE:  HOOP 

752 

01F2' 

C4 

DB  0C4B  ;No  Operation 

753 

BRBOT  GOBOME 

754 

01F3' 

EOFO 

DB  OEOFOB  ; Branch  if  Bottoi  S*  to 

755 

01F5' 

01F2’ 

+ 

DB  GOBOME  ; Address 

756 

f 

757 

» 

758 

01F7' 

N0TII6:  SEHD  8 

;On  the  way  up! 

759 

01F7' 

3008 

+ 

DB  I3000B  *  8)  ;Push  Pinqer  Code  on  ASTE 
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760 

01F9' 

761 

752 

763 

764 

765 

766 

767 

OlFB’ 

768 

OlFB' 

769 

770 

OlFC 

771 

OlFD’ 

772 

773 

774 

775 

^76 

777 

778 

E024 


C4 

26 

OlFB' 


DV  0E024H  ;Send  Finger  Code  Ion  XSTK) 


STOP;  HOOP 

+ 

•JUMP  STOP 


:EHD  OP  DIVE  IDLE  LOO? 

D3  0C4H  ;}lo  Operation 

DB  28H  iJuap  To  ?PC  at 

DH  STOP  ; Address 


.itttuttttttttttitttttt  JJIU  0P  SEQUENCE*  NAIN  PEOGEAN  mutttttttttttttttttttt 
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779 

780 

781 

782 

OlFF’ 

783 

784 

785 

786 

787 

C 

788 

c 

789 

c 

790 

c 

791 

c 

732 

c 

793 

c 

794 

c 

795 

0300' 

c 

796 

0300' 

60 

c+ 

797 

0301' 

042D' 

c+ 

798 

c 

799 

0303' 

60 

c+ 

800 

0304' 

0424' 

c+ 

801 

c 

802 

0306' 

EOCO 

c+ 

803 

c 

804 

c 

805 

0308' 

60 

ct 

806 

0309' 

042D' 

c+ 

807 

c 

808 

0308' 

60 

c+ 

809 

030C' 

0424' 

c+ 

810 

c 

311 

030E' 

EOCO 

c+ 

812 

c 

813 

■  c 

814 

0310' 

60 

ct 

315 

0311’ 

042D' 

c+ 

316 

c 

317 

0313' 

60 

c+ 

818 

0314' 

0424' 

c+ 

319 

c 

820 

0316' 

EOCO 

c+ 

321 

c 

322 

c 

823 

0318' 

60 

c+ 

824 

0319' 

042D' 

ct 

825 

c 

326 

0318' 

60 

c+ 

827 

031C' 

0424' 

c+ 

828 

c 

829 

031E' 

EOCO 

830 

c 

831 

c 

832 

0320' 

60 

c+ 

833 

0321' 

042D' 

c+ 

•  kttttttttutttttttiitttttttt  Sequencer  Subroutines 

t 

CSEG 

ORG  (START  +  03011H! 

•  ttitttttttttttttttHtttttttitttittttttttitttiiittttitltiittttttHititiittilutUt 

IRCIiGBE  ISDDAT7.KAC  ;Include  Sea  3uct  Data  series  subroutine 

•  tttttittttkkttttttttkt  Dixi  SERIES  SUBROUTIHE 
aSDDXn.MAC  19  SEP  86 


DATROH:  RAIT60 

ITAKE  DATA  RITE  FLUME  POMP  OM  FOR  25  MIS. 

D8  60B 

DR  R60 

;Go  to  Sequencer  Subroutine 

'4AIT59 

;2 

DB  60H 

DR  R59 

;So  to  Sequencer  Subroutine 

CAMERA 

DR  OEOCOH 

;Talte  a  Picture 

RAITEO 

DB  60H 

DR  R60 

;Go  to  Sequencer  Subroutine 

RAIT59 

;4 

DB  60H 

DR  R59 

;Go  to  Sequencer  Subroutine 

CAMERA 

DR  OEOCOH 

iTake  a  Picture 

'4AIT60 

DB  60H 

DR  R60 

;Go  to  Sequencer  Subroutine 

'4AnS9 

;5 

DB  60H 

DR  R59 

;Go  to  Sequencer  Subroutine 

CAMERA 

DR  OEOCOH 

:Take  a  Picture 

RAmo 

DB  60B 

DR  R60 

:Go  to  Sequencer  Subroutine 

RAIT59 

:8 

DB  60B 

Dl  R59 

;Go  to  Sequencer  Subroutine 

CAMERA 

DR  OEOCOH 

.‘Take  a  Picture 

8AIT60 


Dl  60H 
Dl  f60 


;Go  to  Sequencer  Subroutine 
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834 


335 

0323'  60 

336 

0324'  0424' 

337 

838 

0326'  SOCO 

339 

340 

841 

0328'  60 

342 

0329'  042D' 

843 

344 

0328'  60 

845 

032C'  0424' 

346 

347 

032E'  EOCO 

848 

349 

350 

0330'  60 

851 

0331'  042D' 

852 

853 

0333'  60 

354 

0334'  0434' 

855 

856 

0336'  SOCO 

857 

358 

359 

0338'  60 

860 

0339'  042D' 

861 

362 

0338'  60 

863 

033C'  0424' 

864 

365 

033E’  SOCO 

366 

867 

368 

0340'  60 

869 

0341'  042D' 

870 

871 

0343'  60 

372 

0344'  0424' 

873 

374 

0346'  EOCO 

875 

376 

877 

0348'  60 

878 

0349'  0420' 

879 

880 

0348'  60 

881 

034C'  0424' 

882 

883 

034E'  EOCO 

884 

885 

886 

0350'  60 

887 

0351'  0420' 

8)9  0353'  60 
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C  '01759 

C+ 

C+ 

c  COEXX 

c+ 

c  ; 

C  '01760 

C+ 

c+ 

c  01759 

Ct 

C+ 

C  CXKEXk 

ct 

c  ; 

c  0X1760 

ct 

c+ 

c  «iI759 

C+ 

C+ 

C  CXMERi 

C+ 

C  : 

c  0X1760 

c+ 

c  0X1759 

ct 

c  CAKERi 

C+ 

c  : 

C  0X1760 

c+ 

c+ 

c  0X1759 

C+ 

c+ 

c  CAMERA 

C+ 

C  ; 

C  OAI760 

C+ 

C+ 

C  0X1759 

c+ 

c  CAMERA 

C+ 

c  : 

c  OAI7SO 

c+ 

c+ 

c  IAI759 


:10 

OB  508  ;Go  to  Sequencer  Subroutine 

DO  059 

DO  OEOCOH  :7ake  a  Picture 

OB  608  ;Go  to  Sequencer  Subroutine 

DO  060 

;i2 

OB  608  :Go  to  Sequencer  Subroutine 

DO  059 

DO  OEOCOa  ;7aie  a  Picture 

DB  508  :Go  to  Sequencer  Subroutine 

DO  080 

;14 

OB  608  ;5o  to  Sequencer  Subroutine 

DO  059 

DO  OEOCOH  :7aXe  a  Picture 

OB  608  :0o  io  Sequencer  Subroutine 

DO  '460 
:16 

3B  608  :Co  to  Sequencer  Suoroutine 

DO  059 

DO  OEOCOH  ;7ake  a  Picture 

05  608  ;So  to  Sequencer  Subroutine 

DO  060 

;i8 

DB  608  :0o  to  Sequencer  Subroutine 

DO  '459 

DO  OEOCOH  :TaXe  a  Picture 

DB  608  ;2o  to  Sequencer  Subroutine 

DO  060 

:20d 

DB  608  ;So  to  Sequencer  Suoroutine 

DO  059 

DO  OEOCOH  ,'7aXe  a  Picture 

DB  608  :5fl  to  Sequencer  Subroutine 

DO  060 
:22 

DB  608  :<»o  to  Sequencer  Subroutine 
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890 

0354’ 

0424' 

C+ 

DR  859 

891 

c 

CAMERA 

892 

0356' 

EOCO 

c+ 

D8  OEOCOH 

(Take  a  Picture 

893 

c 

r 

894 

c 

VAIT60 

895 

0358' 

60 

c+ 

03  60H 

;Go  to  Sequencer  Subroutine 

896 

0359' 

042D' 

c+ 

38  860 

897 

c 

8AIT59 

;24d  Min. 

898 

035B' 

60 

ct 

D3  603 

;Go  to  Sequencer  Subroutine 

899 

035C' 

0424' 

c+ 

08  859 

900 

c 

CAMERA 

901 

035E' 

EOCO 

c+ 

08  OEOCOH 

;Take  a  Picture 

902 

c 

• 

903 

c 

HAIT30 

:25  Min. 

904 

0360' 

60 

c+ 

03  603 

;Go  to  Sequencer  Subroutine 

905 

0361' 

0413' 

c+ 

08  830 

906 

c 

r 

907 

c 

SEMD  7 

:SEHD  SIG.  7  ENO  OF  VELOCITY  RON 

908 

0363' 

3007 

Ct 

08  (30003  +  7) 

;Push  Pinqer  Code  on  ASTR 

909 

0365' 

E024 

c+ 

08  0E0243 

;Send  Pinger  Code  (on  ASTRi 

910 

c 

J 

911 

c 

RETURI 

912 

036T 

58 

c+ 

'  03  583 

;Return  froi  Sequencer  Subroutine 

913 

c 

914 

• 

915 

• tttittttitittftttfttttttfttitttttftttttttttttitftitttlittttktitttitkxttttttts 

916 

• 

917 

t 

918 

0368' 

DROHY:  RAIT60 

919 

0368' 

60 

+ 

03  603 

;Go  to  Sequencer  Subroutine 

920 

0369' 

042D' 

08  860 

921 

'4AIT59 

922 

0363' 

60 

+ 

03  603 

;Go  to  Sequencer  Subroutine 

923 

036C' 

0424' 

+ 

08  859 

924 

CAMERA 

925 

036E' 

EOCO 

+ 

08  OEOCOH 

(Take  a  Picture 

926 

;2 

927 

RAIT60 

928 

0370' 

60 

03  603 

;Go  to  Sequencer  Subroutine 

929 

0371' 

042D' 

+ 

08  860 

930 

1IAIT59 

931 

0373' 

60 

03  603 

:Go  to  Sequencer  Subroutine 

932 

0374' 

0424' 

+ 

08  859 

933 

CAMERA 

934 

0376' 

EOCO 

+ 

08  OEOCOS 

(Take  a  Picture 

935 

:4 

936 

MAIT60 

937 

0378' 

60 

+ 

03  603 

(Go  to  Sequencer  Subroutine 

938 

0373' 

0420' 

+ 

08  860 

939 

VAIT59 

940 

037B' 

60 

I 

08  603 

(Go  to  Sequencer  Subroutine 

941 

037C' 

0424' 

+ 

08  859 

942 

CAMERA 

943 

037S' 

EOCO 

08  OEOCOH 

(Take  a  Picture 

944  ;6 

945 


niw 
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946 

0380' 

60 

+ 

OB  BOB 

:Go  to  Sequencer  Subroutine 

947 

0381' 

0420' 

OB  B60 

liAIT59 

949 

0383  ' 

60 

f 

OB  BOB 

;Go  to  Sequencer  Subroutine 

950 

0384' 

0424' 

+ 

OB  B59 

CAMERA 

952 

0336' 

SOCO 

+ 

OB  OEOCOB 

iTake  a  Picture 

953 

454 

HYORA 

jMOVE  TO  Y  EERO 

955 

0388' 

E0A3 

+ 

DB  0E0A8B 

: Pulse  Hydraulic  Puip  Relay 

956 

038A' 

E093 

01  0EO93H 

957 

HAIT20 

958 

038C' 

60 

+ 

OB  6DH 

;Go  to  Sequencer  Subroutine 

959 

038D' 

0409' 

+ 

OB  B20 

960 

038P' 

E093 

OH  0E093B 

961 

HYORA 

962 

0391' 

E0A3 

DB  0E0A8B 

: Pulse  Hydraulic  Puip  .Relay 

963 

; 

964 

SAIT60 

965 

0393  ' 

60 

+ 

DB  BOB 

:Go  to  Sequencer  Subroutine 

966 

0394' 

0420' 

+ 

DB  B60 

967 

RAIT59 

968 

0396' 

60 

t 

08  BOH 

;Go  to  Sequencer  Subroutine 

969 

0397  ' 

0424' 

+ 

OB  B59 

970 

CAMERA 

971 

0399' 

EOCO 

+ 

DB  OEOCOB 

:Take  a  Picture 

972 

1  4 

i 

971 

VAIT60 

974 

0398' 

60 

08  BOH 

;Go  to  Sequencer  Subroutine 

975 

039C' 

0420' 

OB  B60 

976 

ifAIT59 

977 

0398' 

60 

. 

DB  BOB 

:Go  to  Sequencer  Subroutine 

978 

039f' 

0424' 

DB  B59 

979 

CAMERA 

980 

03A1' 

EOCO 

+ 

DB  OEOCOB 

iTake  a  Picture 

981 

: 

4 

982 

KAIT60 

983 

03A3' 

60 

f 

DB  BOH 

;Go  to  Sequencer  Subroutine 

984 

03A4' 

0420' 

■f 

DB  B60 

985 

HAIT59 

986 

03A6’ 

60 

08  BOH 

;Go  to  Sequencer  Subroutine 

987 

03A7' 

0424' 

OB  B59 

938 

CAMERA 

989 

03A9' 

EOCO 

DB  OEOCOB 

:Take  a  Picture 

990 

r 

6 

991 

VAIT60 

992 

03AS' 

60 

+ 

DB  BOH 

;Go  to  Sequencer  Subroutine 

993 

03AC' 

0420' 

OB  B60 

994 

aAIT59 

995 

03Ag' 

60 

+ 

08  BOB 

;Go  to  Sequencer  Subroutine 

996 

03AP’ 

0424' 

+ 

OB  B59 

997 

CAMERA 

998 

0381' 

EOCO 

+ 

OB  OEOCOB 

iTake  a  Picture 

999 

:8 

1000 

HYORA 

;MO?E  TO  Y3 

1001 

0383' 

E0A8 

OB  0S0A8H 

, 'Pulse  Hydraulic  Pusp  Relay 
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1002 

03B5' 

E092 

OH  0E092H 

1003 

'(tAIT20 

1004 

0337  ’ 

60 

03  60H 

1005 

0338' 

0409' 

OH  H20 

1006 

333A’ 

E093 

OR  OE0923 

1007 

HYORA 

1008 

333C' 

E0A8 

+ 

OH  0E0A8H 

1009 

; 

1010 

SAIT60 

1011 

033E' 

60 

+ 

03  6SH 

1012 

033F' 

042D' 

+ 

OH  H60 

1013 

ifAI759 

1014 

03C1' 

60 

■r 

03  603 

1015 

33C2’ 

3424' 

+ 

OH  H59 

1016 

CAMERA 

1017 

03C4' 

EOCO 

OH  OEOCOH 

1018 

:2 

1019 

VAITOO 

1020 

03C6' 

60 

03  603 

1021 

03C7' 

0420' 

OH  H60 

1022 

'ilAIT59 

1023 

03C9' 

60 

+ 

33  603 

1024 

03CA' 

0424  ' 

* 

OH  H59 

1025 

CAMERA 

1026 

33CC’ 

EOCO 

T 

OH  3B0C03 

1027 

;4 

1028 

RAITOO 

1029 

03CS' 

60  . 

* 

03  603 

1033 

33CF' 

0420' 

• 

OH  H60 

1031 

i(AIT59 

1032 

0301' 

60 

t 

03  633 

1033 

03D2' 

3424' 

+ 

OH  H59 

1034 

CAMERA 

1035 

0334' 

EOCO 

t 

OH  OEOCOH 

1335 

:5 

1037 

MAI760 

1338 

33D6' 

60 

03  603 

1039 

03D7’ 

0420' 

* 

OH  H60 

1040 

RAIT59 

1041 

0309' 

60 

t 

03  603 

1342 

03DA' 

0424' 

+ 

OH  <59 

1043 

CAMERA 

1044 

03DC' 

EOCO 

t 

OH  OEOCOH 

1345 

:8 

1046 

1 

1047 

RETURI 

1048 

03DE' 

58 

03  583 

1049 

1 

1050 

( 

1051 

1 

1052 

PAGE 

;Go  to  Sequencer  Subroutine 

;?ulse  Hydraulic  Puip  Relay 
;Go  to  Sequencer  Subroutine 
;So  to  Sequencer  Subroutine 

iTake  a  Picture 

;Go  to  Sequencer  Subroutine 

;Go  to  Sequencer  Subroutine 

;Taite  a  Picture 

;Go  to  Sequencer  Subroutine 

:Go  to  Sequencer  Subroutine 

;7ake  a  Picture 

:Go  to  Sequencer  Subroutine 

:Go  to  Sequencer  Subroutine 

;Take  a  Picture 

iReturn  froi  Sequencer  Subroutine 
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•1053 

1354 

1355 

ttxitttttt  3EQ0E5CEX  XACJO  SOBSO'JTISES 

1056 

1057 

03DF' 

CSEG 

1053 

OEG  iSTAAT  r  fl400H) 

1059 

1060 

C 

INCLUDE  ISDSUB.MAC 

;Include  Sea  Duct  Macro  Subroutines 

1061 

1062 

c 

iitttttmttttttttkttittkittttikiUkktiittiilittlitttiittttiitttittttttittttttttt 

1063 

c 

1064 

c 

SEflUEICEJ  NACRO  SOBROC?: 

NES 

1365 

r 

1066 

C 

SOBm  ISDSOB  15  J'JL  36 

1067 

c 

1063 

This  file  lust  be  iaciaoed  at  the  end  of  a  Sequencer  Nacro  Prograa 

1069 

'Jse  •INCLUDE  lEOSUB.MAC 

1370 

c 

1371 

itttttttttftitttftttttttittttttttttittittittttttktktifttttikktttikitttltlittttttt 

1072 

w 

1373 

3400’ 

c 

CSEG  ;  Change  to  Code  Segaent 

1374 

■ 

1075 

Xoce: 

410  -  460  alio*  for  the 

call  and  return  tiaes. 

1076 

• 

ie 

410  is  set  for  3  sec. 

*  ^  ^ 

«W  < 

•• 

1073 

0400’ 

:  -410: 

SSTCTC  3003,  S-5 

:4ai:  for  10  Sec. 

1379 

3400' 

Cl 

c* 

35  :ci3 

1030 

0401' 

3003 

c* 

34  3008 

:Set  Counter  3  .Hex  Secondsi 

1331 

3403  ' 

3408' 

c* 

04  5n 

:  Counter  C  Vector  .4hen  count  =  COCO: 

1082 

:uxp  $-1 

1033 

0405' 

23 

Cf 

03  :3H 

:Cuip  To  ??C  at 

1334 

0406' 

3405’ 

• 

V 

04  3-1 

: Address 

1335 

RETURN 

1036 

3403' 

58 

03  533 

i.’.ecurn  froi  Sequencer  Subroutine 

1087 

1038 

c 

1089 

3409’ 

C  '420; 

SETCTC  3012.  S+5 

;4ait  for  20  Sec. 

1090 

0409' 

Cl 

ri 

V 

OB  3C13 

1091 

040A' 

0012 

<* 

04  0012 

:Set  Counter  C  ;Hex  Seconds, 

1092 

340C' 

0411' 

04  5'5 

;  Counter  C  Vector  ,4r.en  co'nt  =  ‘.COO, 

1093 

c 

J’JHP  3-1 

1094 

040E' 

23 

Ct 

03  28'il 

:Juip  To  PPC  at 

1095 

04flF' 

040E' 

C+ 

04  3-i 

.'Address 

1096 

V 

RETURN 

1097 

0411' 

58 

c+ 

OB  58B 

:Return  froi  Sequencer  Subroutine 

1093 

c 

1399 

c 

1100 

0412' 

129: 

SETCTC  OOIB,  5+5 

;4ait  for  29  Sec. 

1101 

0412’ 

Cl 

c+ 

OB  OCIH 

1102 

0413’ 

OOIB 

c+ 

34  0013 

;Set  Counter  C  iBex  Seconds) 

1103 

0415’ 

041A' 

c+ 

04  5+5 

:  Counter  C  Vector  :'4hen  count  ^  3000! 

1104 

c 

JUJIP  $-1 

1105 

0417' 

28 

c+ 

36  283 

:Juip  To  PPC  at 

1106 

0418' 

0417' 

c+ 

D4  5-1 

Address 

1107 

c 

RETURN 

N 
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1108 

041A'  58 

C+ 

1109 

C 

1110 

c 

1111 

fl41B' 

1112 

3413'  Cl 

<•  ‘ 

1113 

fl41C'  OQIC 

c+ 

1114 

341E'  3423' 

c+ 

1115 

c 

1116 

0420’  28 

c+ 

1117 

0421'  0420’ 

c+ 

1118 

c 

1119 

0423’  58 

c+ 

1120 

c 

1121 

0 

1122 

0424  ' 

c 

1123 

3424’  Cl 

c+ 

1124 

0425'  0039 

c+ 

1125 

0427’  042C' 

c+ 

1126 

's» 

1127 

0429’  28 

c+ 

1128 

042A’  0429' 

c+ 

1129 

c 

1130 

342C’  58 

c+ 

1131 

c 

1132 

1133 

042D’ 

3 

1134 

042D'  Cl 

c+ 

1135 

042E'  003A 

c+ 

1136 

3430’  0435’ 

c+ 

1137 

m 

W 

1138 

0432’  28 

C+ 

1139 

0433'  0432’ 

C+ 

1140 

/• 

1  •  i  f 

3435'  58 

c+ 

1142 

c 

1143 

c 

1144 

3 

1145 

0436  ' 

c 

1146 

0436'  Cl 

c+ 

1147 

3437'  003A 

c+ 

1148 

0439'  043E' 

c+ 

1149 

c 

1150 

3433'  28 

c+ 

1151 

fl43C'  3438* 

c+ 

1152 

c 

1153 

043E'  58 

c+ 

1154 

1155 

w 

1156 

343F' 

c 

1157 

043F'  Cl 

c+ 

1158 

0440'  3076 

c+ 

1159 

0442'  0447' 

c+ 

1160 

c 

1161 

0444'  24 

c+ 

1162 

0445’  0444’ 

1+ 

1163 

c 

X3(l: 


US  9: 


m: 


m: 


DB  58 


;Xeturn  froa  Sequencer  Subroucine 


y2!(: 


SETCTC  301C,  S+5  for  30  Sec. 

DB  OCIB 
D»  OfllC 
DB  $+5 

JUMP  S-i 

D3  2SH 
DB  S-1 

XETDXH 

DB  53E 


;Sec  Counter  C  ,Hex  Seconds) 

;  Counter  C  Vector  ;«hen  count  =  3031 

;:uap  To  ??C  a: 
lAddress 

;Seturn  iron  Sequencer  Subroutine 


SETCTC  0039,  $<-5  ;Bait  tor  59  Sec. 

DB  ocia 

3il  2039  .'Set  Counter  C  ;5ex  Seconds) 

3i(  3+5  ;  Counter  C  Vector  I'Vben  count  =  . 

JUMP  $-1 

DB  28H  :3u»p  To  ??C  at 

DB  $-1  : Address 

RETURN 

33  533  :.9eturij  iron  Sequencer  Suorouttne 


SETCTC  003A,  S»5  .'Bait  for  dD  Sec. 

DB  ocia 

33  D03A  :Set  Counter  C  .Hex  Seconos. 

351  5+5  ;  Counter  C  Vector  Bien  count  =  . 

JUMP  $-1 

DB  28B  :3uip  fo  at 

DB  S-i  ; Address 

RE7URH 

33  53H  : Return  froi  Sequencer  Suorouttne 


SETCTC  303A,  S+5  cBait  for  1  MIS. 

DB  DC12 
DB  DOSA 
DB  3+5 


;Set  Counter  C  sex  Seconds, 

;  Counter  C  Vector  Bhen  count  = 


JUMP  S  1 


XETUXI 


DB  28H  ;Ju»p  To  ??C  at 

DB  S-1  cAddress 

DB  588  cXeturn  froi  Sequencer  Subroutine 


SETCTC  0076,  S+5  cBait  for  2  MIS 
DB  flClB 
DB  0076 
DB  S+5 


;Set  Counter  C  ISex  Seconds) 

;  Counter  C  Vector  tBhen  count  = 


JUMP  S-1 


RETUBI 


DB  28B 
DB  S-1 


cJuip  To  PPC  at 
cAddress 


ri 


NACRO-IS 

3.36 

PAGE 

1-23 

ISDSUB  IS  JUL  86 

1164 

0447  ’ 

58 

C+ 

OB  58H 

;ReturD  froi  Sequencer  Subroutine 

1165 

r 

u 

1 

1166 

r 

u 

1 

1167 

0448' 

c 

dSN:  SETCTC  012A,  S+5 

;Bait  for  5  MIN. 

1168 

0448' 

Cl 

c+ 

OB  OCIH 

1169 

0449’ 

012A 

c+ 

OB  012A 

;Set  Counter  C  (Hex  Seconds) 

1170 

044B' 

0450’ 

c+ 

OB  3+5 

:  Counter  C  Vector  (Bhen  count  =  0000) 

1171 

c 

JOMP  S-1 

1172 

0440' 

28 

c+ 

OB  23H 

:Jmp  To  P?C  at 

1173 

044E' 

0440' 

c+ 

OB  3-1 

.‘Address 

1174 

c 

RETORH 

1175 

0450’ 

58 

c+ 

OB  58H 

;Return  froi  Sequencer  Subroutine 

1176 

p 

1177 

c 

1178 

0451  ’ 

c 

m:  SETCTC  01A2,  $+5 

;Baic  for  7  MIN. 

1179 

0451’ 

Cl 

Ct 

OB  OCIH 

1180 

0452’ 

01A2 

ct 

OB  01A2 

;Set  Counter  C  (Hex  Seconds) 

1181 

0454' 

0459’ 

c+ 

OB  3+5 

:  Counter  C  'Vector  IBhen  count  =  0000) 

1132 

c 

JOKP  3-1 

1183 

0456  ’ 

28 

Ct 

OB  28H 

;Juip  To  PPC  at 

1184 

0457’ 

0456' 

c+ 

OB  3-1 

lAddress 

1185 

c 

RETORJ 

1186 

0459’ 

58 

c+ 

DB  58B 

iReturn  froi  Sequencer  Subroutine 

1187 

c 

1188 

c 

1189 

c 

1190 

r 

“****““*“  m  0?  SU3J0D7ISE  IHCLUIIE  PILE  -  ISDS’JB 

1191 

c 

1192 

'* 

1193 

c 

1194 

c 

1195 

1196 

itltltttttttttttftiftltkftttkttttttttttttttttttttttttttttttttttttittttktitttttttt 

1197 

1198 

ttttitttttttttttttttti  rjB  OP  SEQUENCER  PSU-00  PRCGRAH 

1199 

1200 

EKO 

PAGE  S 


NACEO-IE  3.36 
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MACROS: 


ADOFF 

ADOl 

SAT 

BRBOT 

3RCMD1 

3RCMD2 

3RCMD3 

BRINS 

3RRET 

CAMERA 

CHKTLT 

CLRABC 

CLRCTA 

CLRCTB 

CLRCTC 

FLUNIN 

FLUMOU 

60SUB 

HYDRA 

IICX 

IHCY 

UCZ 

INITC 

HITS 

J3MP 

l:off 

L20S 

L2SEHD 

LDVRST 

HOOP 

PING 

?MP1 

PMP2 

PMPOFF 

PMPRLY 

POP 

POSH 

RSTURH 

ROTCCI 

ROTCH 

ROTHDG 

ROTRTH 

SDOFF 

SDOM 

SEDIHS 

SEDRET 

SEDUNL 

SEND 

SETCTA 

SETCTB 

SETCTC 

SPMPO 

SPMPl 

SPMP2 

TXOFF 

TROI 

mm 

mm 

IAIT20 

KAIT29 

ifAIT2M 

lAITOfl 

VAIT59 

NAITSM 

8AIT60 

mm 

HAITF 

RAITT 

XYZO 

ZEROZ 

ZEROY 

ZEROZ 

SYMBOLS 

; 

..aooo 

00D9' 

..0001 

00E5' 

..0002 

00F3' 

..0003 

OOFF' 

..0004 

OlOD' 

..0005 

0119' 

..0006 

0127' 

..0007 

0133' 

..0008 

0141' 

..0009 

0146' 

A 

OOOA 

B 

0003 

c 

OOOC 

D 

0000 

DATRUI 

0300' 

DAYS 

0001 

DIVE 

003E' 

DOME 

OOFF 

ORmY 

0368' 

£ 

OOOE 

F 

000? 

FIJI 

DIED' 

GOHOME 

01F2' 

HOURS 

0002 

HRS 

0002 

II? 

0096' 

HEAD 

00A9' 

IIOR 

3090' 

IMSERT 

0084' 

LIFTl 

0070' 

MU 

0003 

MOVING 

01F7' 

OFFBOT 

0075' 

OIBOT 

004F' 

QSBOT? 

0047  ' 

RET? 

OlAC 

RETBAO 

OIBF' 

RETOK 

01B3' 

RETRCT 

019E' 

RPLYl? 

0065' 

RPLY3? 

OOBA' 

RPLY4? 

0100' 

RtUl 

OOC5' 

RUN2 

OOEC 

Rni3 

0106' 

RDI4 

0120' 

SEC 

0004 

SETTLE 

OIDB' 

START 

0000' 

STOP 

OlFB' 

TCHEl 

0041' 

TLTIN 

flfl5E' 

no 

0400' 

HIM 

0436' 

'820 

0409' 

il29 

0412' 

i2M 

043F' 

130 

0413' 

i59 

0424' 

'85M 

0448' 

160 

0420' 

m 

0451' 

JO  FATAL  SRXORiSI 


..0000 

389 

3928 

..0001 

391 

3978 

..0002 

420 

4238 

..0003 

422 

4288 

..0004 

451 

4548 

..0005 

453 

4598 

..0006 

482 

4858 

..3007 

484 

4908 

..0008 

510 

5138 

..0009 

512 

5158 

A 

548 

ADOFF 

541 

ADOH 

548 

99 

190 

215 

369 

3 

548 

BAT 

548 

113 

118 

125 

130 

3RBOT 

548 

198 

259 

753 

BRC!(D1 

548 

241 

350 

697 

3RCMD2 

548 

244 

353 

700 

3RCXD3 

548 

BRIHS 

548 

308 

332 

3RRZT 

548 

655 

678 

C 

548 

CAMERA 

548 

109 

157 

222 

292 

801 

810 

819 

828 

837 

924 

933 

942 

951 

970 

CHKTLT 

548 

228 

CLRABC 

548 

CLRCTA 

548 

315 

662 

CORCTB 

548 

CLRCTC 

548 

D 

548 

DATROH 

404 

435 

466 

7958 

DAYS 

548 

186 

529 

DIVE 

1828 

DOME 

548 

396 

427 

458 

489 

DROHY 

496 

9188 

j 

548 

r 

548 

747 

747 

747 

Fin 

7448 

FLOMIH 

548 

300 

317 

330 

FL2M0D 

548 

647 

664 

676 

GOBOHE 

7518 

755 

GOSDB 

548 

116 

121 

128 

133 

433 

464 

494 

547 

550 

601 

618 

621 

720 

726 

823 

826 

832 

835 

841 

377 

880 

886 

889 

895 

940 

946 

949 

958 

965 

137  142  149  151  153 


381 

531 

627 

716 

722 

728 

734 

846 

855 

864 

873 

382 

891 

900 

979 

988 

997 

1016 

1025 

1034 

1043 

514 


140 

145 

166 

225 

266 

378 

402 

558 

566 

569 

579 

582 

590 

593 

732 

796 

799 

305 

803 

314 

817 

844 

850 

853 

859 

862 

868 

371 

898 

904 

919 

922 

928 

931 

937 

968 

974 

977 

983 

986 

992 

995 

^ 


1004 

1011 

1014 

1020 

1023 

1029 

1032 

1038 

1041 

HOORO 

544 

186 

529 

HRS 

544 

54 

HYDRA 

544 

298 

319 

336 

541 

606 

614 

624 

645 

666 

682 

954 

961 

1000 

1007 

IM? 

3084 

313 

IHBAD 

336 

3304 

ISCX 

544 

IHCY 

544 

ISC2 

544 

ISITC 

544 

96 

252 

286 

367 

415 

446 

477 

506 

640 

714 

744 

IHITS 

544 

IXOR 

310 

3154 

334 

IXSER7 

237 

243 

2864 

355 

JDMP 

544 

201 

247 

263 

311 

324 

356 

390 

421 

452 

433 

511 

658 

671 

703 

769 

1082 

1093 

1104 

1115 

1126 

1137 

1149 

1160 

1171 

1182 

D20F? 

544 

397 

428 

459 

490 

515 

L20H 

544 

L2SEHD 

544 

388 

419 

450 

481 

509 

LDVRST 

544 

239 

LIPTl 

246 

2524 

Nil 

544 

186 

186 

136 

186 

529 

529 

529 

529 

MOVING 

7584 

SOOP 

544 

196 

257 

751 

767 

QFFBOT 

2574 

261 

OHBQT 

200 

2114 

CHBOT? 

<964 

203 

270 

RISC 

544 

108 

162 

171 

213 

256 

264 

296 

323 

340 

539 

644 

670 

686 

748 

760 

909 

?NP1 

544 

387 

418 

449 

430 

PHP2 

344 

PNPOFF 

544 

508 

PKPRLY 

544 

334 

518 

?0? 

544 

POSH 

544 

182 

525 

RET? 

6554 

660 

RETBAD 

653 

6764 

RETOR 

657 

6624 

680 

RETRCT 

6404 

702 

RETURN 

544 

911 

1047 

1085 

1096 

1107 

1113 

1129 

1140 

1152 

1153 

1174 

1135 

ROTCCI  54* 

R07CV  Ht 

ROTEOG  544 

ROTITH  544 

RPLTl?  2414  249 

RPLT3?  3504  358 

RPLY4?  6974  705 


1013 

1022 

1031 

1040 

WITSM 

54t 

373 

WITSO 

541 

265 

795 

804 

313 

822 

831 

340 

849 

358 

367 

376 

835 

334 

913 

927 

936 

945 

964 

973 

982 

991 

1010 

1019 

1028 

1037 

i(iIT7!I 

54* 

'WITF 

54* 

185 

528 

WITT  541 
XYZO  541 
ZE20X  54f 
ZSROY  54« 
ZEXOZ  54f 


SEA  DUCT  SEQUESCER  PPC  MACROS 

ISDSEQ.MAC  15  JUi  1986 

«.  E.  TERRY 

(LisCin;  SupressedI 
.XLIST 

PREVIOUS  VERS.  16  JUH  1986 
PREVIOUS  VERS.  26  MAR  1986 
PREVIOUS  VERS.  25  MAR  1986 
PREVIOUS  VERS.  11  DEC  1985 
PREVIOUS  VERS.  21  MOV  1985 

Earlier  versioas  exist. 


**“  USED  ORLY  FOR  ASSEMBLY  OF  SEQUEMCER  PSOEDQ  PROGRAM  CODES 
USE  "ISCLUDE  ISDSEQ.MAC  I.V  SEQUEHCER  SOURCE 


ttttittttttitttttttittttttttttitttttmtttttttttttttttttttttutttttttttttttttt 

ititttttt  rUHCTIOSS  *»»*«“»««*»*»»»*«»»»» 


JUMP  MACRO  Pi 

DB  28H  iJuap  To  PPC  at 

D»  PI  ;Address 


FUSE  MACRO  ?0,P1,P2,P3,?4 

D3  i27H  +  ?0)  ;?usli  Data  on  ASTR 

IF  PO  EQ  1 

DB  PI 
ELSE 

IF  PO  EQ  2 

DB  PI 
DB  P2 
ELSE 

IF  PO  EQ  3 
DB  PI 
DB  ?2 
SB  P3 
ELSE 

IF  PO  EQ  1 
DB  PI 
DB  P2 
DB  P3 

DB  ?4 
ELSE 

DB  FQ  .;***•*  PUSH  PARAMETER  ERROR  •““!  I !  I !  i !  1 1 !  1 1 ;  1 !  I ! ! ! !  I ! 


POP 


\ 


ssDir 

SHDIF 

ENDIF 

ENDIF 

ENDN 


MACRO  ?0 

DB  (3FH  +  PO)  :Pop  data  froa  ASTR 
IF  (PO  GT  41  OR  IPO  LT  11 

DB  ?g  ;**“*  POP  PARAMETER  ERROR  ““*! !  i  i ! ! ! !  1 !  i ! ! ! ! !  1 !  i ' 

ENDIF 

ENDM 


INITS  MACRO 
ENDM 


DB  4CH  , -Clear  stacks,  aodes,  PPCCST 


INITC  MACRO 
ENDM 


DB  4DH  ;Clear  stacks,  aodes,  PPCCNT,  Counters 


CLRA3C  MACRO 
ENDM 


DB  4EH  :Clear  Counters  A,  B,  C 


RETURN  MACRO 
ENDM 


DB  58H  jReturn  froa  Sequencer  Subroutine 


GOSUB  MACRO  PI 

OB  SOB  ;Go  to  Sequencer  Subroutine 

DN  PI 

ENDM 


HOOP  MACRO 
ENDM 


DB  3C4H  ;No  Operation 


itittittt  Micros  )t*<*t<<t*****<*<<^*<*t>* 


> 

DAYS 

EQU  01 

iRS 

e;u  02 

HOURS 

EQU  HRS 

MIN 

EQU  03 

SEC 

EQU  04 

e 

1AITT 

MACRO  PI 

IF  PI  EQ  DAYS 

DB  70H 

:«ait  Till  Days  =  ASTR 

ELSE 

IF  PI  sg  HODRS 

DB  71H 

;Bait  Till  Hours  ==  ASTX 

ELSE 

IF  PI  Eg  MIS 

DB  73B 

:Bait  Till  Min  =  ASTR 

ELSE 

IF  PI  EQ  SEC 

OB  73H 

;Hait  Till  Sec  =  ASTX 

ELSE 

DB  OFQ 

;*«“  BAIT  TILL  ERROR  ““!!!!!!!!!  1 1 ! 

EKDIF 

SSDIF 

SSDIf 

ESDI? 

ENDH 


I 

•iAIIF  MACRO  PI 

IF  PI  EQ  DAYS 

SB  BOB  .‘Bait  for  iaterval  of  Dafs  on  AS7X 

ELSE 

I?  PI  S5  HODRS 

D3  31H  :Bait  for  interval  of  Hours  on  ASTK 

ELSE 

IF  PI  Sg  MIS 

DB  32H  :i(ait  for  interval  of  Mia  on  AS7R 

ELSE 

DB  OFQ  BAIT  TILL  ERROR  “*‘l ! ! ! ! ! i ! ! ! : : ■ ; : : ! 

EKDIF 

EHDIF 

ESDIF 

ESDM 


ttitttottttittt  Sequencer  Counter  Macros  •“*»***“ 

“•  Mote:  see  ISITC  iPPC  =  4D1 

CLRABC  iPPC  =  4E1  above  for  ocier  clear  counter  instructions. 


CLRCTA  .MACRO 
ESDM 


DB  3A0H  ; Clear  Counter  A 


CLRCTB  MACRO 
ESDM 


DB  3B0H  ; Clear  Counter  3 


CLICK  MACRO 


DB  OCOB 


; Clear  Counter  C 


ENDK 


SaTCTi  MACRO  PO,  PI 


DB  OAIH 
DM  PO 
DK  PI 


;Set  Countei  A  (Hex  Seconds) 

;  Counter  A  Vector  (Vhen  count  =  0000) 


SSTC7I  MACRO  PO,  PI 


DB  OBIH 
DM  PO 
DH  PI 


;Set  Counter  3  [Hex  Seconds) 

;  Counter  B  Vector  (lllien  count  =  0000) 


SETCTC  MACRO  PO,  PI 


DB  0C13 
Di  PO 
DH  PI 


:Set  Counter  C  (Hex  Seconds) 

;  Counter  C  Vector  IVhen  count  =  00001 


iittittittttotititttittt  [,aop  I  2  Macros  “«“»**»**»**“*“*•“*****“• 


:20F?  MACRO 


OB  ODOH  ;SAII.  Loop  2  Power  Off 


L201  MACRO 


DB  0013 


;SAIL  Loop  2  Power  On 


L2SESD  MACRO  PO 


DB  0D2B  ;Sesd  Data  On  SAIL  Loop  2 

DM  PO  ;3ata  List  Address 


ttttiittitttttttt'jxTSHDED  SEgOEICER  POHCTIOIS  (  EO  PREFIX 


MACRO  PO 

IF  (PO  EQ  1)  OR  (PO  EQ  2)  OR  (PO  EQ  3) 

DM  (OEOlOH  *  PO)  ;PuIse  Main  Battery  Relay  tn 

ELSE 

DM  OFFFFQ  ;  •“  Battery  Relay  Error  “*!!!!!! !!!1!1!!!!!!!1!!! 

EIDIF 


SNDK 


ADOFF  MACRO 

ENDM 

ADOM  MACRO 

EHDM 

I 

:roff  macro 

ENDM 

TRON  MACRO 

ENDM 

SDOFF  MACRO 

ENDM 

f 

SDON  MACRO 

EHDM 


DN  3E030H  ;A/D  OFF 


D8  0S031H  ;A/D  OH 


DH  0E040H  ;TraasBissoieter  OFF 


DR  0EO4IE  rTramissoaeter  ON 


DH  0E05QH  :Sea  Data  Recorder  OFF 


DH  OEOSIH  ;Sea  Data  Recorder  ON 


sFMPO  MACRO 
ENDM 


DH  0E08OH  ;Set  ?OMPl,2  on  JrAGE  =  30 


SPMPl  MACRO  Ml 

DH  0EO61H  :Set  POMPl  on  GPAGE  =  HI 
DB  N1 
EHDM 


SPMP2  MACRO  HI 

DH  0E062H  ;SeC  FUMP2  on  GPAGE  ^  N1 
DB  N1 

ENDM 


CBKTLI  MACRO 


DH  0E070B  ;Cliecl(  Roll,  Pitch;  Send  Sijnal 
;  "C  *  Ok,  *0'  =  Bad 
;  (+/-  TLIMII  Dejl (See  Equate  Table) 


EHDM 


ttttittititxti  jotation  Macros  ««»**»*»**<*»«*»*»»» 


\ 


JQTCi  XACRO 
ENDM 


: Pulse  Rotate  CR  Relay 


ROTCCI  SiCRO 
ESDN 


DI  OEORl  ;Palse  Rotate  CCI  Relay 


ro:rt5  macro 

EHDM 


DR  3E032H  :Rotate  Flu»e  to  Transport  Position 
;  Send  Signal  'B'  if  error 


RQTHDG  MACRO 

OR  OEOS3H 

;Rotate  Fluie  to  Experiient  Position 

EHOM 

:  Send  Signal  '3'  if  error 

ttttttttttuttttt  111  Traverse  Macros  *»««*»*»» 


Z-ROX  MACRO 

DR  0E09AH 

;Zeco  X  Position 

EHDM 

;  Send  Signal  *A"  if  error 

IMCX  MACRO 

DR  3E093H 

;Increaent  X  Position 

im 

;  Send  Signal  *A*  if  error 

ZEROY  MACRO 

DR  GE09CB 

;Zero  Y  Position 

ERON 

;  Send  Signal  "A*  if  error 

IHCY  MACRO 

DR  3E09DH 

;Increient  Y  Position 

ElOM 

;  Send  Signal  *A'  if  error 

ZEROZ 


MACRO 


Of  0E09EE 


;Zero  Z  Position 
;  Send  Signal  ’A'  if  error 


D8  il209FH 


;IncreieaC  Z  Position 
:  Send  Signal  "i"  if  error 


ENDM 


ISCZ  SACXO 


ENDX 


XYZO  MACRO 
HYDRA 
ZSROX 
ZEROY 
ZSROZ 
HYDRA 
ENDM 


tiitttttttitiittit  saipler  Macros  *»«««♦«“«““»*»*»» 


SEDISS 

MACRO  ?0 

I?  ?0  SQ  1 

DH  OEOAIH 

; Insert  Sediient  Saapler 

IF  ?Q  EQ  2 

ji  jECA5H 

;  Insert  Sediaent  Saapler  ^2 

ELSE 

DH  OFFFFQ 

SEDIMENT  INSERT  ERROR  “‘1 1 ;  1 !  i  1 : : : '  i ; ; , 

EHDIF 

EMDIF 

. 

ENDM 

t 

SEDRET 

MACRO  ?a 

IF  ?0  EQ  1 

DV  0E0A2H 

;Retract  Sediaent  Saapler  tl 

ELSE 

IF  ?o  sg  2 

D8  2E0A6H 

;Retract  Sediaent  Saapler  U 

ELSE 

3H  OFFFFQ 

SEDIMENT  RETRACT  ERROR  “*l ; : ;  i ! :  i : : : : ;  i . . 

EHDIF 

EHDIF 

. 

EHDM 

1 

SEDUIL 

MACRO  ?0 

IF  ?0  EQ  1 

DH  OEOAIH 

;Unlatcii  Sed.  Saapler  $1,  Saaple  H20-1 

ELSE 

IF  PO  EQ  2 

Dl  0E0A7H 

;3nlatc!i  Sed.  Saapler  t2,  Saaple  H20-2 

ELSE 

OH  OFFFFQ 

:  ***  SEDIMENT  DNLATCH  ERROR  “*!!!!!!  1 1 !  I!.'.'  1 1  ’ 

1 


JUMP  J 

D:  DB  "IPCX’ 

DB  DOSE 

L20F? 

SPMPO 

ENDK 


PSPl  MACRO  A 

LOCAB  3,J 
L2SEHD  3 
JUMP  J 

3:  33  ’IPC'.Pl’ 

3B  'iA' 

33 

DB  DOME 

J:  L20FF 
jPMPl  A 
ESDM 


PMP2  MACRO  A 

LOCAL  0,J 
LISEMD  3 
JUMP  J 

D:  DB  '»PC!?2* 

33  'iA' 

31  '  ' 

33  DOME 

w  ’>  i 

3PMP2  A 
EMDM 


•  tttttttttttttttt  ’3fjncii*  Micros  •••»•****»»«<«»««•»» 

3H30T  MACRO  ?0 

3S  OEOFOH  ;3ranch  if  Botto*  Sm  to 

DM  ?0  lAidress 

EMDM 


BRIMS  MACRO  PO 

DM  OEOFIH  ;Branch  if  Fluie  Inserted  to 

DM  PO  .'Address 

EMDM 


3RRET  MACRO  PO 


EMDM 


DM  0E0F2B 
DM  PO 


;Braacli  if  Flaie  Retracted  to 
;Address 


\ 


BRCMDl  MACRO  PO 

38  0E0F8H 

D8  PO 

ENDM 

3RCHD2  MACRO  PO 

D8  0E0F9H 

D8  PO 

EMDM 

3RCMD3  MACRO  PO 

38  OEOFAH 

D8  PO 

EMDM 

; Branch  if  XBOHDR  CUD.  1  Received  to 
; Address 


: Branch  if  XPOHDR  CSD.  2  Received  to 
; Address 


: Branch  if  XPORDR  CM.  3  Received  to 
; Address 


ttitttitttttittttittttttttitttttittttittttttttttttttlittttttttttttttttttttttttt 

tttttttttttttttittttttt  COBBIIKD  tOHCTIQH  MACROS 


SEHD  ACOOSTIC  CODE  -  MACRO 

A  EQU  3AB 
B  EQD  033 
C  EQO  3C3 
0  EQU  ODE 
E  ESU  OEB 
?  EQU  OFH 


I 

?:%  MACRO 
EMDM 


D8  0E024H  ;Send  Finger  Code  (on  ASTR) 


SEHD 


MACRO  ?0 

I?  IPO  GT  OFH)  OR  (PO  LT  01 


ELSE 


DB  ?Q  ;»«««»*•«»*»«»*»*»»•*•  PISGER  CODE  ERROR  *•“* 
DH  (30003  *  PO)  ;Push  Finger  Code  on  ASTR 


EIDIF 

PIHG 


EIDM 


till 


I  M  I  I  !  '  I  I 


ittitttititiittttui  SPECIFIC  '8AIT  FOR*  MACROS  “•*•“»»»»»“»* 
«•***  iait  for  10  Sec.  **••* 


8AI710  MACRO 


I 

I 


GOSUB  *10 


itttt  jait  {or  20  Sec. 
BAITIO  MACRO 
aSDM 


GQSOB  *20 


»“**  Bait  for  29  Sec.  ***** 
BAIT29  MACRO 
RSDM 


GOSUB  B29 


Bait  for  30  Sec.  ***** 
BAIT30  MACRO 
EHDM 


GOSUB  B30 


‘*‘*«  Sait  for  59  Sec.  ***** 
SAIT59  MACRO 
iHDM 


OSUB  S59 


Bait  for  50  Sec.  ***** 
SAIT60  MACRO 
SIDN 


GOSUB  B60 


.  tt><<  '(laic  for  1  Mia.  ***** 
BAITIM  MACRO 
RHDM 


GOSUB  BIM 


.  itttt  gait  for  2  Mia.  ***** 
BAIT2N  MACRO 
EIDH 


GOSUB  B2M 


*•“*  Bait  for  5  Min.  ***** 


:  Bait  for  10  Sec. 


;  Bait  for  20  Sec. 


;  Sait  for  29  Sec. 


;  Bait  for  30  Sec. 


;  Bait  for  59  Sec. 


;  Bait  for  60  Sec. 


;  Bait  tor  1  Mia. 


:  Bait  for  2  Mia. 


itttttttuitiutitutt  data  series  SHaSOC^ISB 


ISDDAnJAC  19  SEP  5S 


3ATRIIS:  RilTSO 
ilAITSS 
CAMERA 

RAITSfl 

RAITSS 

CAMERA 

RAITSfl 

RAITSS 

CAMERA 

ilAnSfl 

liAIT59 

CAMERA 

ilAmO 

»AIT5J 

CAMERA 

JAII60 

RAIT59 

CAMERA 

RAIIEQ 

SAIT59 

CAMERA 

RAITSO 

SAIT59 

CAMERA 

mm 

ilAII59 

CAMERA 

RAIT80 

mm 

CAMERA 

RAITEO 

WITS? 

CAMERA 

RAI7S0 

RA«59 

CAMERA 


;7AEE  DATA  «7H  FLUME  PUMP  08  FOR  25  MIS. 
;2 


;4 


;6 


:3 


;10 


;12 


:U 


:15 


;20d 


;22 


;24(1  Mia. 


SEHD  7  :SEND  SIG.  7  END  OF  VELOCITY  JUH 

JETGRH 


;  SEQlfEKCEl!  SfACEO  SmOUfim 

I 

SU3m  ISDSUB  15  J'JL  36 

;  This  file  lUst  he  included  at  the  end  of  a  Sequencer  dacro  Prograa 
;  Use  "IHCLUDE  ISDSUB.NAC 

*  ttkttiititttttiiitttitttkttttitttiitkkktttttttttttttttttttttittttttttiittttttk 

CSEG  ;  Change  to  Code  Segnent 

f 

;  Note!  110  -  i)60  alio*  for  the  call  and  return  tiaes. 

;  ie.  HIO  is  set  for  3  sec. 

t 

XIO:  SETCTC  0008,  3+5  ;Uit  for  10  Sec. 

JUMP  S-1 
RETURN 


B20:  SETCTC  0012,  S+5  ;lfait  for  20  Sec. 

JUMP  $-1 
RETURN 


t 

223;  SETCTC  3013,  3r5  ;2ait  for  29  Sec. 
JUMP  $-1 
RETURN 


230:  SETCTC  OOlC,  S+5  ;2ait  for  33  Sec. 

JUMP  S-1 
RETURN 


259:  SETCTC  0039,  $+5  :2ait  for  59  Sec. 

JUMP  S-1 
RETURN 


260:  SETCTC  003A,  S+5  :2ait  for  50  Sec. 

JUMP  S-1 
RETURN 


21M;  SETCTC  003i,  5+5  :2ait  for  1  MIN. 
JUMP  S-1 
RETURN 


22M:  SETCTC  0076,  $+5  ;2ait  for  2  MIN. 

JUMP  5-1 


m:  3ETCTC  012A,  S+5  for  5  SIH. 

JUMP  $-1 
XETURH 


•|7M;  SETCTC  01A2,  $+5  ;»ait  for  7  MIH. 
JUMP  S-1 
RETURN 


tiititttttitt  SHD  OF  SUBROUTINE  INCLUDE  FILE  -  ISDSDB 


Appeodiz  B 

Sea  Duct  Mooitor  Program 
Block  Diagraas 


HARDSTART 


UMADDRESS  and  READDRESS 


Disable 

Interupts 


GO  TO 
BLT2 


Set  lc=RJ 
(=START:) 

User  lefined 
Clear  &  Setup 

Set  up  SCRT 

"START:" 

Delay 

1  s>  ^ARFLG 
(1  »  Normal) 

Set  Interrupt  PC 
=  R2 

set  xl3=PC 

Set  up  UART 

1 

Enable  Interrupts 

GO^TO 

INADDR: 


Delay 


"SAIL  Reply" 
Call  TTY 
Send  SAIL  Reply 

GO  TO ^PROMPT: 


B-1 


PROMPT 


"PROMPT” 

I 

Call 

WAITTSRE 

I 

Call 

TTY 

1 

Output  CR,  LF 
ETX 

Call 

WAITTSRE 

I 

GO  TO 

"First  Branch" 


(Appendix  B  contd.) 


WAITTSRE 

(Wait  for  Trans.  Ser. 
Shift  Reg.  Ready) 


"WAITTSRE" 


Set  X=Stack 


Delay 

Set  X=Stack 
Clear  DA 

I 

EXIT 


B-2 


(Appendix  B  contd.) 


First  Branch 

"First  Branch" 
Call  ITB 
?  Group 
!  Group 
$  Group 
H  Group 

I 

M  Group 

(Add  others  here) 
End  of  List 

i 

GO  TO  PROMPT: 


ITB 

(Input  Test  and  Branch) 
"ITS" 


Call  INCHAR 


B-3 


(Appendix  B  contd.) 


"INCHAR" 

Input  UART  Status 


Input  to 
lOLOC 


Clear  HSB 


GO  TO  GO  TO 

"UNADDRESS"  "UNADDRESS 


(Appendix  B  contd.) 


(Appendix  B  contd.) 


TTY  contd. 


A 


(Appendix  B  contd.) 


TEST  OK 


"TESTOK" 

cJii 

WAITTSRE 

I 

Call 

TTY 

I 

Type  "OK  ?" 

1 

"TEST  Y" 

I 

Call 

VAITTSRE 


Call 

INCHAR 


Clear  DF 


Exit 


(Appendix  B  contd.) 


IN4D  -  Input  4  IN4D 

Digits  to  R(D) 


"IN4D" 

ooJr(d) 


"SHIFTD4" 

i 

RSHL  x4 

I 

OR  w/ 
lOBYTE 

i 

PLO  R{D) 

1 

Exit 


TEST  OK 


"TESTOK" 

I 

Call 

WAITTSRE 

Call 

TTY 

Type  "OK  ?" 

1 

"TEST  Y" 

1 

Call 

VAITTSRE 


Call 

INCHAR 


Ex: 


B-10 


(Appendix  B  contd.) 


Interrupt  Service  Routine 


"Interupt  0" 

I 

Save  X,P,D,DF 

I 

Save  Regs. 
E,D,C,B,A,7.0 

Pulse  Q  loptional) 

I 

Restore  R(B) 
(Optional) 

I 

"Long  Branch 
Table  (LBT)" 


UART  f  Check 


LBT 

I _ 

I 

Real  Time  CLock 


lb7 


Sequencer 

, - > 

LBT 

' - 1 

Instriment  Specific  Tasks 


Save  R(B) 

I 

Break  Check 

1 

Restore  Registers 
7.0,A,3,C,D,£,F 

I 

Restore 

X,P,D,DF 

I 

Return  from 
Interrupt 


B-11 


Appendix  C 


Sea  Duct  Main  Prograa 
Prograa  Generation  and  Listing 


SEA  DUCT  PROGRAM  GENERATION 

Software  used  in  the  Sea  Duct  System  was  developed  on  a  CompuPro  816A 
Computer.  The  CompuPro  816A  uses  a  modified  version  of  CP/M  and  CP/M-86  to 
run  8  and  16  bit  programs.  All  software  purchased  for  the  system  was 
designed  for  eight  bit  CP/M  systems. 

The  current  version  of  the  Sea  Duct  Main  Program,  SDSYSSn,  is  made  from 
two  files:  SDOSRn  and  SDESRn.  These  are  assembled  using  the  Syscon  M18 
assemblier  (for  RCA  1802  series)  and  are  linked  using  L18. 

SDOSRn  is  linked  using  the  command  /P:800/D:5000,  and  SDESRn  is  linked 
using  /P:2000/D:S000;  the  combined  version  is  called  SDSYSSn. HEX.  This  can 
be  converted  to  RCA  format  (file  type  ".RCA")  using  the  command  MBASIC_HXRCA. 
Appendix  D  contains  a  listing  of  the  Rex  to  RCA  format  conversion  program. 

The  resulting  .RCA  file  can  be  loaded  into  Sea  Duct  system  RAM  using  a  ver¬ 
sion  of  MCALL  named  SAIL  via  the  BTU  Monitor  which  resides  in  PROM  at  0000  in 
the  SEA  DUCT  System.  RAM  versions  are  usually  used  for  testing  only.  At  the 
present  time  the  program  is  burned  into  EPROMs  which  are  then  installed  in 
the  system.  Four  proms  (2716)  are  needed.  They  are  inserted  into  prom 
locations  0800,  1000,  1800,  and  2000,  For  the  prom  version,  a  ".COM"  version 
of  the  program  is  made  using  the  L18  linker.  CP/M  Submit  files  L18C0M  and 
L18HEX  exist  for  linking  the  main  program.  See  the  Syscon  manual  as  well  as 
information  at  the  top  of  each  source  file  for  further  information.  These 
files  exist  on  disks  labeled  "Sea  Duct  Main  Prog.  -  Working  Copy"  and  "1802 
Development  System".  This  text  and  other  text  files  are  on  the  "Sea  Duct 
Text  Files".  The  "1802  Development  System"  disk  is  the  disk  used  for 
assembly,  etc.  Backup  copies  of  these  disks  exist. 

The  proms  for  the  system  are  programmed  using  "BURN"  and  the  system 
object  file  SDSYSn.COM.  "Burn"  is  a  renamed  version  of  PROMPROG,  the  Optimal 
Technology  prom  programming  package. 

The  Sea  Duct  Sequencer  Macro  Programs  are  the  ones  used  to  control  the 
Sea  Duct  does  during  an  actual  deployment.  These  macro  programs  are  on  a 
disk  labled  "Sea  Duct  Sequencer  Progs."  These  are  also  assembled  using 
Syscon 's  M18  and  are  linked  using  L18.  These  programs  are  also  made  into 
".RCA"  files  using  the  MBASIC  program  RXRCA.  The  sequencer  programs  are 
loaded  into  battery  backed  ram  memory  at  location  1000  hx.  using  the  a  ver¬ 
sion  of  HCALL  renamed  SAIL. COM.  SAIL.COM  resides  on  the  "1802  Development 
System"  disk.  The  command  "SAIL  -Z;SAIL."  is  used.  This  connects  the  Sea 
Duct  computer  to  the  CompuPro  computer  via  the  lab  SAIL  system. 


C-1 


!iaO-li  3.3$ 


PiG£  1 


0035 

0039 


;P1G£  SO 

smm  m  oicr:  ssosio.uc  is  sep  u 

f 

ms  SOI  'S'  ;?SSSIOI  5.9 

SET  SOI  '9* 


PIETIOIS  ms.:  S005SS.UC  OS  SEP  SS 
FSETIOIS  TEiS.:  SD0517.UC  2S  SIG  iS 
PSETIOIS  ms.:  SD05SS.UC  OS  ilG  SS 
PIETIOIS  TEIS.:  SIOSIS.UC  21  JII  SS 


OtSer  oiler  rersiois  exist  *  lo  losjer  osed. 


Sill.  SEE  DICT  PSOGIU 
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FLO  GFAGE 

1931 

094C' 

07 

LDH  GFAGE 

1932 

094D' 

32  34' 

BZ  TSTADV 

;RTC  1  FLAG  =  0  ? 

SACRO-18  3.36  PACE  1-42 
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1933 

094F’ 

?8  00 

SETAT:  LDI  00 

1934 

0951' 

57 

STR  CPAGE 

:CLEAR  RTC  i  FLAG 

1935 

0952’ 

?8  03 

LDI  S7SFLG 

1936 

0954' 

A7 

FLO  GPAGE 

:SET  SAIL  t  FLAG 

1937 

0955’ 

07 

LDH  GPAGE 

1938 

0956' 

?9  01 

ORI  01 

1939 

0958' 

57 

STR  GPAGE 

1940 

0959' 

30  34' 

BR  TSTADV 

1941 

r 

1942 

095B' 

?8  00 

IHClO;  LDI  00 

:SET  SEC  XI  =  0 

1943 

095D' 

73 

STXD 

;X  =  GPAGE  HERE 

1944 

095E’ 

07 

LDH  GPAGE 

;INC.  SEC  X  10 

1945 

095?' 

?C  01 

ADI  01 

1946 

0961' 

57 

STR  GPAGE 

1947 

0962' 

??  06 

SHI  06 

;SEC  X  10  =  6  ? 

1948 

0964' 

33  34' 

3H?  TSTADV 

1949 

0966  ' 

?8  00 

INCHIH:  LDI  00 

1950 

0968' 

E7 

SEX  GPAGE 

1951 

0969' 

73 

STXD 

;CLEAR  SEC  X  10 

1952 

096A' 

07 

LDH  GPAGE 

1953 

0963' 

FC  01 

ADI  01 

:IHCREMEHT  KIH.  X  1 

1954 

096D’ 

57 

STR  GPAGE 

1955 

096E’ 

?F  OA 

SHI  OAE 

1956 

0970' 

33  34’ 

3H?  TSTADV 

1957 

0972' 

?8  00 

LDI  00 

1958 

0974  ' 

73 

STXD 

1959 

0975' 

07 

LDH  GPAGE 

;KIX  X  1  =  0,  IK  KIH 

1960 

0976' 

?C  01 

ADI  01 

1961 

0978’ 

57 

STR  GPAGE 

1962 

0979' 

??  06 

SKI  06 

;HODR  UP  ? 

1963 

0973' 

33  34' 

3H?  TSTADV 

1964 

097D' 

?8  00 

30URUP:  LDI  00 

; CLEAR  KIH  X  10 

1965 

097?' 

73 

STXD 

1966 

0980' 

07 

LDH  GPAGE 

1967 

0981' 

FC  01 

ADI  01 

lIHCREKEHT  HOURS 

1968 

0983  ' 

73 

STXD 

1969 

0984  ' 

??  04 

SMI  04 

;30DRS  XI  =  4  ? 

1970 

0986' 

33  34' 

9H?  TSTADV 

1971 

0988  ' 

07 

LDH  GPAGE 

1972 

0989' 

??  02 

SKI  02 

:DAY  UP  ? 

1973 

0983' 

33  9C' 

BD?  DATUP 

1974 

098D' 

17 

CBKIO:  IHC  GPAGE 

1975 

098E' 

07 

LDH  GPAGE 

1976 

098?' 

??  OA 

SKI  OAR 

1977 

0991' 

33  34' 

3HF  TSTADV 

1978 

0993' 

?8  00 

LDI  00 

}!ACS0-1S  3J6  ?AGE  1-43 
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1373 

0395' 

73 

STXD 

1380 

0996' 

07 

LDN  GPAGE 

1381 

0337' 

FC  01 

ADI  01 

1382 

0333' 

57 

STR  GPAGE 

1383 

099A' 

30  34  ' 

BR  TSTADV 

1384 

1385 

039C' 

F8  00 

DAYUP:  LDI  00 

1386 

033E' 

57 

STR  GPAGE 

1387 

039:' 

17 

ISC  GPAGE 

1388 

09A0' 

73 

STXD 

1389 

09A1' 

27 

DEC  GPAGE 

1390 

09A2' 

F8  03 

LDI  03 

1391 

03A4' 

A8 

PLO  R8 

1992 

09A5' 

07 

DAYCAR:  LDN  GPAGE 

1933 

33A6' 

FC  01 

ADI  01 

1934 

09A8' 

57 

STR  GPAGE 

1935 

03A3' 

F?  OA 

SMI  OAH 

1996 

Q3AB' 

35  34' 

BNF  TSTADV 

1337 

03AD' 

F8  00 

LDI  00 

1938 

03Af' 

73 

STXD 

1339 

0950' 

23 

DEC  R8 

2000 

0351' 

83 

GLO  R3 

2001 

0932' 

3A  A5' 

3N2  DAYCAR 

2002 

; 

2003 

0354' 

F8  ID 

TSTADV:  LDI  ARFLG 

2004 

0956' 

A7 

PLO  GPAGE 

2005 

0957' 

07 

LDN  SPACE 

2006 

0358' 

F3  32 

XRI  02 

2007 

033A' 

3A  Cl' 

3NE  TST2SD 

2008 

09BC' 

F3  03 

LDI  03 

2003 

098E' 

57 

STR  GPAGE 

2010 

09BF' 

30  2D' 

BR  INCRTC 

2011 

09cr 

F5  31 

TST2ND:  XRI  01 

2012 

09C3' 

3A  24' 

3NZ  CLEAR 

2013 

09C5' 

F3  32 

LDI  02 

2014 

09C7' 

57 

STR  GPAGE 

2015 

33C8' 

30  07' 

3R  DECAR 

2016 

2017 

2018 

•  uttmmtutttt 

2013 

2020 

09CA' 

F8  67 

SBQCYC:  LDI  SEQRAT 

2021 

09CC' 

A7 

PLO  GPAGE 

2022 

09CD' 

07 

LON  GPAGE 

2023 

09CE' 

32  EE' 

iZ  SEQOl 

2024 

t 

line  HOURS  X  10 


;  CLEAR  HOURS 


;CARRY  DAYS  AS  REQUIRED 


lOl  =  02  OR  03 


SEQUENCE  CYCLE  ?  »»*««*«.« 


IF  NOT  RUN  ONLY  ON  CYCLE  tl 
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:025 

0900' 

FA  80 

AHI  aoB 

SEQRAT  HSB  =  17  ilXXX  1111) 

3036 

09D2’ 

C2  0A22' 

LBZ  CYXXRH 

IF  .HOT,  HAIT  FOR  CYCLE  8NH  OR  801  ;G0  70  C'fXX 

2027 

2028 

0905' 

07 

LDH  GPAGE 

IF  MSB  =1  13X),  CHECX  LOH  NIBBLE 

2029 

0906' 

FB  30 

!RI  30H 

(1000  00001  =  EVERY  CYCLE 

2030 

0908' 

C2  OBOO' 

LBZ  SEQHCR 

(1000  00011  =  EVERY  OTHER  CYCLE 

2031 

090B' 

FB  01 

XRI  01 

(1000  00101  =  EVERY  FOURTH  CYCLE 

2032 

0900' 

32  FA' 

BZ  CYXXXl 

llOOO  0100)  =  EVERY  EIGHT  CYCLE 

2333 

39DF' 

FB  03 

XRI  03 

2034 

09E1' 

C2  0A06' 

LBZ  CYXXOl 

(1000  1111)  =  EVERY  FO’JRTH  CYCLE 

2035 

09E4' 

FB  06 

XRI  06 

IPIHGER  CONTROL  ONLY) 

2036 

09E6’ 

C2  0A14' 

LBZ  CYXOOl 

2037 

09E9' 

FB  OB 

XRI  OBH 

IF  .HOHE  OF  THE  ABOVE, 

2038 

09EB' 

C2  0A06' 

LBZ  CYXXOl 

RDM  OHLY  OH  CYCLE  801 

2039 

t 

2040 

09EE' 

F8  19 

SEQOl;  LDI  CYCLES  :CHSCX  CYCLE  8 

2041 

09FO' 

A7 

FLO  GPAGE 

2042 

09:1' 

07 

LOK  GPAGE 

2043 

09F2' 

FB  01 

XRI  01 

.ROH  SEQUEHCER  OHLY  OH  CYCLE  01 

2044 

09F4' 

C2  OBOO' 

LBZ  SEQHCR 

2045 

09F7' 

CO  0860' 

LBR  SEQRTH 

2046 

; 

2047 

09FA' 

F8  19 

CYXXXl;  LOI  CYCLES  :RCH  EVERY  QYSER  CYCLE 

2048 

09FC' 

A7 

PLO  GPAGE 

2049 

09FO' 

07 

LOH  GPAGE 

2050 

09FE' 

FA  01 

AHI  01 

2051 

3A00' 

CA  OBOO' 

L3HZ  SEQHCR 

2052 

3A03' 

CO  0860' 

LBR  SEQRTH 

2053 

* 

2054 

0A05' 

F8  19 

CYXXOl:  LOI  CYCLES 

RUH  EVERY  FOURTH  CYCLE 

2055 

OA08' 

A7 

PLO  GPAGE 

2056 

0A09' 

07 

LOR  GPAGE 

2057 

OAOA' 

FA  03 

AHI  03 

2058 

OAOC 

FB  01 

XRI  01 

2059 

3A0E' 

C2  OBOO' 

LBZ  SEQHCR 

2060 

OAll' 

CO  0860' 

LBR  SEQRTH 

2061 

1 

2062 

0A14' 

F8  19 

CYXOOl:  LOI  CYCLES  :R1JH  EVERY  EIGHT  CYCLE 

2063 

3A16' 

A7 

PLO  GPAGE 

2064 

0A17' 

07 

LDH  GPAGE 

2065 

0A18' 

FA  07 

AHI  07 

2066 

OAIA' 

FB  01 

XRI  01 

2067 

OAIC 

C2  OBOO' 

LBZ  SEQHCR 

3068 

OAIF' 

CO  0860' 

LBR  SEQRTH 

2069 

; 

2070 

0A22' 

07 

CYXXKH:  LDH  GPAGE  ;RUH  OH  OHLY  CYCLES  ^  XH  OR  01 

1-45 
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2371 

3A23' 

?A 

7F 

AHI  7FH 

- - 

0A25' 

AD 

PLQ  RD 

2073 

3A25' 

F3 

19 

LDI  CYCLES 

2074 

0A28' 

A7 

FLO  GFAGE 

2075 

3A23’ 

S7 

SEX  GFAGE 

2076 

3A2A' 

30 

GLO  RD 

2077 

0A2B' 

?3 

XOR 

2073 

0A2C' 

C2 

OBOO' 

LBE  SEQNCR 

;ON  CYCLES  =  HH,  RUH  SEQUENCER 

2379 

3A2?’ 

CO 

39F1' 

LBR  (SEQOl  +  31 

:CHECK  FOR  CYCLES  =  31 

2030 

; 

2081 

2082 

2083 

; 

2084 

3A22' 

F8 

:TY2: 

LDI  TTY2HI 

; CHECK  LOOP  2  OUTPUT  LIST  ?HTR 

2035 

0A34' 

A7 

FLO  GFAGE 

2386 

3A25’ 

37 

LDH  GFAGE 

2087 

0A36’ 

<•  ^ 

3870' 

LBZ  :y2rtii 

;IF  CLEAR  i=00),  RETURH  TO  LBT 

2088 

3A39' 

n 

SEX  GFAGE 

2039 

RLXA  RTTY2 

.•LOAD  TTY2  FOIHTER  iREG  RT7Y2) 

2390 

3A3A' 

63 

6F 

♦ 

2091 

mi' 

27 

OEC  GFAGE 

2092 

lAlD' 

3: 

LDH  RTTY2 

:OET  S(RTTY21 

2393 

0A3E’ 

:3 

XRI  OFFH 

:1S  1!  :F  ? 

2394 

3A40' 

:3’:' 

LBE  TY2RTS 

;  IF  SO  RETURH  TO  L3T 

2395 

3A42' 

?3 

5F 

XRI  lOFFH  XCR  3 

90H1  :I3  IT  90  7 

2095 

3A45’ 

5C' 

32  TY2ETX 

:  IF  SO  30  TO  TTY2-ETX 

2397 

1 

2393 

uA47’ 

Mil 

•  1  4  * 

SEX  ISTPC 

;TY?E  3H  LOOP2 

2399 

3A43' 

61 

OUT  GROG? 

2130 

:A49’ 

06 

OB  DARTS 

SET  CART  GROUP 

2131 

3A4A' 

E2 

SEX  STACK 

2102 

0A43' 

6D 

I5F  STAT2 

;  CHECK  STATUS 

2103 

0A4C' 

FB 

CO 

XRI  0C3E 

:  INVERT 

2104 

3A4S' 

FA 

30 

AHI  OCOH 

:  SASK  FOR  T3RE  AND  TSRE 

1A53' 

CA 

3373' 

L3S2  TY2RTS 

2106 

3A53' 

6C 

IHP  DATA2 

;  CLEAR  ECHO  CA 

2107 

0A54' 

EF 

SEX  RTTY3 

2108 

0A55’ 

64 

CUT  DATA2 

SEND  DATA  OH  LOOP  2 

2109 

0A56’ 

E7 

SEX  GFAGE 

2110 

RSXD  RTTY2 

SET  DATA  POINTER  OH  3L 

2111 

0A57' 

68 

AF 

♦ 

2112 

3A59’ 

CO 

0870' 

LBR  TY2RTI 

2112 

2114 

0A5C' 

El 

TY2ETX; 

SEX  IHTFC 

:ilAIT  FOR  ETX 

2115 

0A5D' 

61 

OUT  GROUP 

;  SET  UART  GROUP 

2116 

3A5E’ 

06 

OB  UAJTS 

XACRO-IS  3. '5  PACE  1-46 
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2117 

0A5F' 

E2 

SEX  STACK 

2113 

0A60' 

6D 

ISP  STAT2 

CHECK  STATUS 

2119 

0A6r 

FB  CO 

XRI  OCOH 

INVERT 

2120 

0A63' 

FA  CO 

ANI  OCOH 

SASK  FOR  THRE  AND  TSRE 

2121 

0A65' 

CA  0870' 

L3NZ  TY2RTN 

RETURN  TO  L3T  IF  REGS.  SOT  EMPTY 

2122 

0A63' 

E2 

SEX  STACK 

2123 

0A69' 

6D 

IKP  STAT2 

DA? 

2124 

0A6A' 

F6 

S3R 

''I 

44.^3 

0A63' 

C3  0870' 

LBHF  TY2RTS 

I?  NOT  RETURN  TO  L5T 

2126 

0A6E' 

5C 

IHP  DATA2 

I?  DA2 

2127 

0A6F' 

FA  7F 

ANI  07FH 

MASK  MSB 

2123 

0A71' 

FB  03 

XRI  03 

IS  IT  ETX  ? 

2129 

0A73' 

CA  0870' 

LBNZ  TY2RTN 

IF  NOT  ETX,  RETURN  TO  L3T 

2130 

0A76' 

IF 

ISC  RTTY2 

IF  ETX,  INC.  TTY2  LIST  .POINTER 

2131 

0A77' 

11 

SEX  CPAGE 

2132 

RSXD  RTTY2 

AND  RESTORE 

2133 

0A78’ 

68  AF 

2134 

3A7A' 

CO  0370' 

13R  TY2RTH 

RTN  TO  L3T 

2135 

2136 

2137 

Ititiitsttitttititott 

3RSAK  LOOP  2  ? 

2133 

2139 

2140 

3A7D' 

■8  7D  3R2:  DDI  3R2CST 

GET  BREAK  COUNT  FROM  CPAGE 

2141 

3A7F' 

A7 

PLO  CPAGE 

2142 

3A80' 

07 

LDN  CPAGE 

2143 

0A81' 

■3  00 

XRI  00 

2144 

3A83' 

02  0873' 

L3E  3R2RTN 

I?  0,  RETURN  TO  L3T 

2145 

0A86' 

07 

IDS  CPAGE 

IF  SOT,  DECREMENT  COUNT 

2146 

0A87' 

FF  01 

SNI  01 

2147 

0A89' 

57 

SIR  CPAGE 

2148 

0A3A' 

CA  0873' 

LBNZ  3R2RTH 

IF  NOT  0,  RETURN  TO  L3T 

2149 

0A3D' 

El  3R2CLR;  SEX  IHTPC 

IF  NON  0,  RESET  DART  2 

2150 

0A8E' 

61 

OUT  GROUP 

*  5  A 

0A3F' 

06 

33  DARTS 

2152 

0A90' 

65 

OUT  CHTRL2 

2153 

0A91' 

12 

03  FORNTI 

2154 

0A92' 

64 

OUT  DATA2 

•SEND  NULL  TO  RESET  DART  2 

2155 

0A93’ 

00 

DB  00 

2156 

0A94' 

CO  0873' 

L3R  BR2RTH 

;RETUTN  TO  L3T 

2157 

2158 

2159 

2160 

ISE  OUT  COUNTER  FUNCTIONS 

2161 

RUNS  ON  CYCLES  =  26H  ONLY  *“ 

2162 

SACXO-13  3.36  PACE  1-47 

3SA  3UC::  SD05X9.XAC  16  SE?  36 


2163 

3A97’ 

F5  19 

CTRCHE:  LDI  CYCLES 

;.’DS  OHLY  ON  CYCLE  26H  IHEXT  TO  LAST  CYCLE) 

2164 

0A99’ 

A7 

FLO  GPAGE 

2155 

3A9A' 

07 

LDN  GPAGE 

2166 

0A9B’ 

?3  26 

XRI  26B 

2167 

0A9O' 

CA  0876' 

LBSZ  CTSRTH 

:RETDRH  TO  LBT  IF  CYCLE  SOT  =  26H 

2163 

; 

2169 

OAAO' 

E2 

CTCHK:  SEX  STACK 

2172 

SCAL  X6,  CTSCHK 

^  i 

OAAl' 

63  36 

4 

2172 

0AA3' 

0AB6' 

+ 

2173 

0AA5' 

6C 

DB  CTAHI 

2174 

0AA6' 

6E 

DB  CTAVHI 

2175 

; 

2176 

SCAL  R6,  CTHCHK 

2177 

0AA7' 

63  36 

+ 

2178 

3AA9' 

0AB6' 

t 

2179 

OAAB' 

73 

DB  CTBHI 

2130 

OAAC 

1  4 

DB  CTBVHI 

2131 

; 

2132 

SCAL  R6,  CTSCHK 

w*  3  3 

OAAO' 

63  36 

9 

2134 

OAAF' 

nii' 

9 

2135 

OABI' 

74 

DB  CTC3I 

2136 

0AB2' 

76 

DB  CTCVHI 

2137 

; 

2133 

0AB3' 

CO  3876' 

DBR  CTRRTS 

;RETURN  TO  LBT 

2130 

2131 

0A36' 

46 

CDXCHR:  DDA  LIST 

2192 

0AB7' 

A7 

PLO  GPAGE 

lEXIT  I?  CSTR  A  =  3 

2193 

0A38' 

S7 

SEX  GPAGE 

2194 

RLXA  RA 

:?l'T  CSTlnl  IS  RA 

2195 

0AB9' 

63  6A 

t 

2196 

OABB' 

9A 

GHI  RA 

;  Is  it  =0  ? 

2137 

OABC 

3A  Cl' 

3SZ  CTXDEC 

2133 

CASE' 

8A 

GLO  RA 

2199 

OABF' 

32  El' 

3Z  ICTHRTH-1) 

:SKIP  VECTOR  POINTER  IS  PASSLIST  ASD  RETURN 

2200 

2201 

OACl' 

2A 

CTSDEC:  DEC  RA 

:DECRENEST  CSTR  S  AND 

2202 

0AC2' 

9A 

GHI  RA 

;  BRANCH  TO  CTNSTR  IF  ,SOT  =0 

2203 

3AC3' 

3A  DE’ 

B*Z  CTSSTR 

2204 

flAC5' 

8A 

GLO  RA 

2205 

0AC6' 

3A  DE' 

BIZ  CTISTR 

:IF  CSTR  S  =  0,  STORE  0  COUNT 

2206 

0AC8' 

27 

DEC  GPAGE 

2207 

RSXD  RA 

2208 

0AC9' 

68  AA 

+ 

MACSO-iS  3.36 
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2209 

OACB' 

46 

LDA  LIST 

;GET  CTIalVHI  FROB  PASSLIST 

2210 

OACC’ 

A7 

PLO  GPAGE 

;  and  put  it  in  RA 

2211 

RLXA  RA 

2212 

OACD' 

68 

6A 

2213 

OAC?' 

F3 

61 

LDI  PPCLO 

:Put  the  new  PPC  in  the 

2214 

OADl' 

A7 

PLO  GPAGE 

;  PPC  pointer 

2215 

0AD2' 

E7 

SEX  GPAGE 

2216 

RSXD  RA 

2217 

0AD3’ 

63 

AA 

t 

2213 

0AD5' 

F3 

63 

LDI  PPCCHT 

;SET  =00: 

2219 

0AD7’ 

A7 

PLO  GPAGE 

2220 

0AO8' 

F8 

00 

LDI  00 

:  PPCCNT 

2221 

OADA' 

73 

STXD 

;  SEQRAT 

2222 

OADB' 

73 

STXD 

2223 

OADC 

30 

E2' 

3R  CTXRTH 

pGO  TO  CSTRTS 

2224 

; 

2225 

DADE' 

27 

CTHSTR:  DEC  GPAGE 

; STORE  COUNTER  N 

2226 

RSXD  RA 

2227 

OADP’ 

68 

AA 

+ 

2228 

OAEl' 

15 

IHC  LIST 

;SKI?  VECTOR  POINTER  IN  PASSLIS' 

2229 

; 

2233 

0AE2' 

E2 

CTRRTH:  SEX  STACK 

; RETURN 

2231 

SRST  .V6 

2232 

0AS3' 

63 

36 

t 

2233 

2234 

2235 


2236 

2237 


titttttxtttxtttttttit  sequencer 


ORG  (ISTPGS  +  300H) 

•“  LOCATIOI  OF  VARIOUS  ELEBEHTS  IH  T3IS  SECTION  ARE 
“*  EXTREKELY  CRITICAL  !  RUST  START  AT  A  PAGE  START 


2233 

2239 

2240 

2241 

2242 

2243 


2244 

OBOO' 

F8 

2245 

0BO2' 

A7 

2246 

0303' 

47 

2247 

0B04' 

3C 

2248 

0BO5' 

47 

2249 

0B06' 

AC 

2250 

0B07' 

47 

2251 

0B08'. 

BD 

2252 

0B09’ 

47 

2253 

OBOA' 

AO 

2254 

OBOB' 

47 

SEQHCR;  LDI  PPCBI 
PLO  GPAGE 
LDA  GPAGE 
PHI  PPC 
LDA  GPAGE 
PLO  PPC 
LDA  GPAGE 
PHI  RSTR 
LDA  GPAGE 
PLO  RSTR 
LDA  GPAGE 


:SET  UP  PPC 


;SET  OP  R  STACR 


tit 
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1255 

HBOC’ 

BE 

PHI  ASTR 

;SE7  UP  A  STACR 

2256 

OBOD' 

47 

LDA  GPAGE 

2257 

OBOE' 

AE 

PLO  ASTR 

2258 

QBOF' 

OC 

LDR  PPC 

;GET  REXT  PPC 

2259 

OHIO' 

FA  FC 

ARI  OFCH 

;RASX  TO  DECODE  PPC 

2260 

0B12' 

A1 

PLQ  IHTPC 

:REDIRECT  IRTERRDPT  PC  TO  PPC 

2261 

2262 

2263 

OBIS' 

1C  IKCPPC-.iIHC  PPC 

;SET  UP  FOR  REXT  PPC 

2264 

0B14' 

CO  3C00’  SAVE::  LBR  SAVPPC 

2265 

2266 

0B17' 

2C  DEC?PC::DEC  PPC 

:SET  UP  FOR  PREVIOUS  PPC 

2267 

3B13' 

30  14' 

3R  SAVE 

:  USED  BY  EXT.  SEQUENCER  FUNCTIONS 

2268 

2269 

2270 

2271 

PPC’S  START  HERE  tmttuttttttu 

2272 

2273 

2274 

QRG  ISEQNCR  +  28H) 

2275 

0B28' 

1C  JOKP::  IRC  PPC 

:JURP  TO  PPC  AT  AAAA 

2276 

0B29' 

30  56' 

BR  JKPEXC 

2277 

2278 

2279 

ORG  iSEQRCR  +  30H) 

2230 

0B30' 

4C  PUSH:  IDA  PPC 

;PCS3  N  BYTES  TO  A  STACR 

2231 

0B31' 

FA  03 

ARI  03 

2282 

0B33' 

A9 

PLO  R9 

228. 

0B34' 

2E  PUSHl:  DEC  ASTK 

2284 

3B35' 

4C 

LDA  PPC 

;LOAD  IMMEDIATE  PPC  3YTE 

2235 

0B36' 

5E 

SIR  ASTR 

2286 

0B37’ 

89 

GLO  R9 

2237 

0338' 

32  14' 

32  SAVE 

;AHOTHER  3YIE  ? 

2288 

033A' 

29 

DEC  R9 

2289 

3333’ 

30  34’ 

3R  PUSHl 

2290 

2291 

2292 

ORG  ISEwRCR  t  40H) 

2293 

0B40' 

4C  POP:  LDA  PPC 

:POP  H  BYTES  FROM  A  STACR 

2294 

0B41' 

FA  03 

All  03 

2295 

0B43' 

A9 

PLO  R9 

2296 

0B44' 

IE  POPl:  IRC  ASTR 

2297 

0B45' 

39 

GLO  R9 

2298 

0B46' 

32  14’ 

B2  SAVE 

2299 

0B48' 

29 

DEC  R9 

2300 

0B49' 

30  44' 

BR  FOPl 

XACJO-IB  3.36 
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2301 

1 

2302 

; 

2303 

ORG  (SEQNCR 

+  4CH1 

3304 

0B4C' 

CO  0C22' 

ISIT: 

LBR  ism 

2305 

; 

2306 

; 

2307 

ORG  (SEQHCR 

+  58H) 

2308 

0B53' 

ID 

RETURH: 

INC  RSTR 

2309 

3359' 

4D 

LDA  RSTR 

, '.RETURN  FRO.N  ?CC  SUBROUTINE 

2310 

0B5A' 

3C 

PHI  PPC 

2311 

0B53' 

3D 

LDN  RSTR 

2312 

0B5C' 

AC 

PLO  PPC 

2313 

0B5D' 

1C 

INC  PPC 

2314 

0B5E' 

30  13' 

3R  INCPPC 

2315 

; 

2316 

; 

2317 

ORG  (SEQNCR 

*  50H) 

2313 

0B6O' 

1C 

GOSUfi: 

INC  PPC 

;GOTO  PPC  SUBROUTINE 

2319 

0B61' 

ED 

SER  RSTR 

2320 

0B62' 

3C 

GLO  PPC 

2321 

0B63’ 

73 

STZD 

2322 

0B64' 

9C 

GHI  PPC 

2323 

0B65’ 

73 

3TXD 

2324 

0B66' 

4C 

JMPEXC: 

LDA  PPC 

2325 

0B67’ 

A9 

PLO  R9 

2326 

0B68' 

OC 

LDN  PPC 

2327 

0B69' 

AC 

PLO  PPC 

2323 

0B6A' 

39 

GLO  R9 

2329 

0B6B' 

3C 

PHI  PPC 

2330 

0B6C' 

30  14' 

BR  SAVE 

2331 

r 

2332 

2333 

ORG  (SEQNCR 

t  im 

2334 

0B70' 

OC 

miLL; 

LDN  PPC 

;«AIT  TILL  DAYS,  HOURS, 

2335 

0371' 

fA  03 

ANI  03 

:MIN,  SEC  ON  RTC 

2336 

9B73' 

FE 

SHL 

2337 

0B74' 

FC  11 

ADI  310 

2333 

0B76' 

A7 

PLO  GPAGE 

2339 

3377' 

E2 

SEX  STACR 

2340 

SCAL  R6,  CMPARE 

2341 

0B78' 

63  36 

+ 

2342 

0B7A' 

0C9C' 

+ 

2343 

0B7C' 

33  13' 

BDF  INCPPC 

2344 

0B7E' 

30  14’ 

BR  SAVE 

234S 

3346 
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2247 

ORG  (SEQHCR  ^  808) 

2348 

OB80' 

CO  0C6F’ 

H’lPOR:  LBE  STFOEX 

2349 

r 

2350 

2351 

ORG  (SEQHCR  +  OAOHl 

2352 

OBAO' 

CO  0D3A’ 

CTA:  LBR  CTAX 

2353 

f 

2354 

; 

2355 

ORG  (SEQHCR  t  OBOH) 

2356 

OBBO' 

CO  0057’ 

C’TB:  LBE  CTSX 

2357 

f 

2353 

; 

2355 

ORG  (SEQHCR  +  OCOH) 

2360 

OBCO' 

CO  0074’ 

CTC:  LBR-CTCX 

2361 

’ 

2362 

t 

2363 

ORG  (SEQHCR  +  0C4Hi 

2364 

0BC4' 

30  13’ 

HOOP:  BE  IHCPPC  ;??C  HO  OP 

2365 

‘ 

2366 

• 

2367 

ORG  (SEQHCR  +  flCSHl 

2363 

•“  AODITIOHAL  PSEGDO  CODES  CAN  BE  INSERTED  HERE 

2369 

2370 

2371 

ORG  (SEQHCR  *  0001) 

2372 

0300  ’ 

CO  0C39’ 

uOOP2:  LBR  LOOP2X  :START  OUTPUT  LIST  OS  LOOP  2 

2373 

;  AND  PIE  ON/OFF  LOO?  2 

2374 

2375 

2376 

ORG  (SEQHCR  +  OEOR) 

2377 

03EO' 

CO  1300’  SEgm;  OBR  SSL?  +  8008  ;SZA  OUC:  SX7SHDED  SEQOESCSR 

2378 

:  FUNCTION  PREFIX 

2379 

2380 

“•  NORE  PSEUDO  CODES  CAN  BE  INSERTED  HERE 

2381 

2332 

2333 

2384 

ORG  (SEQNCR  +  lOOHI 

2385 

2386 

“*•“  BASIC  SEQUEHCSR  IH  THIS  SECTION  ARE  CALLED  BY  THE 

2387 

PREVIOUS  PRQGRAH  PAGE  “““ 

2388 

2389 

2390 

OCOO' 

65  SAVPPC::LDI  ASmO  :SAVE  PPC  AND  STACRS  OH  GPAGE 

2391 

OC02’ 

A7 

PLO  GPAGE 

2392 

0C03’ 

E7 

SEX  GPAGE 
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2393 

0CQ4' 

3E 

GLO  ASTX 

2394 

0C05' 

73 

STXO 

2395 

0C06’ 

9E 

GHI  ASTX 

2396 

0C07’ 

73 

STXO 

2397 

0C08' 

80 

GLO  RSTX 

2398 

0C09' 

73 

STXO 

2399 

3C0A' 

90 

GHI  RSTX 

2400 

OCOB’ 

73 

STXO 

2401 

3CDC' 

3C 

GLO  PPC 

2402 

OCOD' 

73 

STXO 

2403 

OCOE’ 

9C 

GHI  PPC 

2404 

OCOF' 

57 

STR  GPAGE 

; GPAGE  ->  PPCHI 

2405 

2406 

2407 

OCIO’ 

El 

PIAGCK:  SEX  I5TPC 

;THIS  SECTION  COOLD  CHECK  I.VSTR0MEHT 

2403 

•>•00  FLAG  CKECXS 

;  SPECIFIC  FLAGS  (  ON  /  OFF  i 

2409 

AS  NECESSARY 

;  ANO  PERFORM  THE  INOICATSO 

2410 

THEN  ... 

•••  ;  OPERATION  (THEN  SEQUENCER 

2411 

:  EXITS  TO  LBT 

2412 

2413 

3C11' 

CO 

0860' 

LBR  SEQRTN 

; RETURN  TO  L3T 

2414 

2415 

2416 

2417 

2413 

2419 

0C14' 

A7 

SETCLH::P10  GPAGE 

:SET  OR  CLR  FLAG  ON  GPAGE 

2423 

OCIS’ 

4C 

LDA  PPC 

2421 

0C16' 

?6 

SHR 

2422 

0C17' 

33 

IC 

3DF  SETAC 

2423 

0C19' 

F8 

00 

LOI  00 

2424 

OCIB' 

C8 

LSXP 

2425 

OCIC 

F8 

AC  SETAC:  LOI  OACH 

2426 

OCIE' 

57 

STR  GPAGE 

2427 

OCl?' 

CO 

0B14' 

LBR  SAVE 

2428 

2429 

2430 

‘••••**““““  IHITIALIEE  STACKS  AHO  COOHTERS  -  4C,  40,  4E  »•••«•*•»••••«• 

2431 

2432 

0C22' 

OC 

IHITX:  LOH  PPC 

2433 

QC23' 

FA 

03 

All  03 

2434 

0C25' 

32 

37' 

BZ  HITS 

:4C  *  INITIALIZE  ONLY  SEQ.  STACKS,  PPCCST, 

2435 

0C27’ 

FB 

01 

XRI  01 

:  FASTNOOE,  ETC. 

2436 

0C29' 

32 

32' 

BZ  IIITB 

;4D  =  INITIALIZE  BOTH 

2437 

0C2B' 

FB 

03 

XRI  (01  XOR  021 

2438 

0C2O' 

32 

3F' 

BZ  IIITC 

;4E  =  INITIALIZE  ONLY  SEQ.  COUNTERS 

\ 


I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 
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2439 

2440 

2441 

2442 

2443 

2444 

2445 

2446 

2447 
2443 

2449 

2450 

2451 

2452 

2453 

2454 

2455 

2456 

2457 
2453 
2459 
2463 

2461 

2462 

2463 

2464 

2465 

2466 

2467 
2463 

2469 

2470 

2471 

2472 

2473 

2474 

2475 

2476 

2477 
2473 
2479 

2430 

2431 

2432 

2433 

2434 


0C2F'  CO  0313' 

LBR  IHCPPC 

0C32'  E2 

IHITB:  SEX  STACK 

SCAL  R6,  CSTCLR 

0C33'  68  36 

0C35’  0C47’ 

t 

+ 

0C37'  E2 

INITS:  SEX  STACK 

SCAL  R8,  STKCLR 

0C38'  63  86 

0C3A'  0C59’ 

0C3C'  CO  3313’ 

T 

LBR  ISCPPC 

OC3?'  E2 

INITC:  SEX  STACK 

SCAL  R6,  CSTCLR 

0C40'  68  36 

0C42'  0C47' 

0C44'  CO  0813' 

t 

+ 

LBR  ISCPPC 

t 

S'JBRODTIHES  FOR  INIT 

flC47'  E2 

CSTCLR;  SEX  STACK 

SCAL  R6,  CTSCLR 

0C48'  68  86 

0C4A'  0DA3' 

0C4C'  65 

+ 

D5  CTALO 

SCiL  R6,  CTUCIR 

3C4D'  68  36 

3C4F’  0DA3' 

OC51'  71 

DB  CTBLO 

SCAL  R6,  CTSCLR 

0C52'  68  86 

0C54'  0DA3' 

0C56'  75 

OB  CTCLO 

SRfil  RS 

0C57'  68  96 

+ 

0C59'  F8  52 
0C5B'  30 

0C5C'  3B 

0C5O’  F8  3F 
QC5F’  AD 

0C60’  F8  7F 
0C52'  AE 

STKCLR:  LDI  SSTKPG 

PHI  RS7K 

PHI  ASTK 

LDI  LOilRSTKTP) 
PLO  RSTK 

LDI  LOSUSTKTPl 
PLO  ASTK 

I 

I 


lALIJE  “* 

; CLEAR  COUNTERS  A,  B, 


; RETURN 

; INITIALISE  STACKS 

;  R  STACK 

:  A  STACK 
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2485 

flC63' 

F8  68 

LDI  PPCCST 

2486 

0C65’ 

A7 

PLO  GPACS 

2487 

0C66' 

E7 

SEE  GPAGE 

3488 

0C67’ 

F8  30 

LDI  00 

2489 

0C69' 

73 

STXD 

; CLEAR  PPC  COURT 

2490 

0C6A' 

73 

STXD 

;SET  SEQDEHCER  RATE  TO  CYCLE  1  OHLY 

2491 

0C63' 

73 

STXD 

; CLEAR  FAST  SEQUEHCER  NODE 

2492 

0C6C’ 

E2 

SEX  STACK 

2493 

SRET  R6 

.•RETURN 

2494 

0C6D' 

68  96 

+ 

2495 

t 

2496 

; 

2497 

'Kait  For'  Sequencer  Code 

2498 

; 

2499 

0C6F' 

DC 

'4TF0RX:  LDH  PPC 

;iAIT  FOR  DAYS,  HOURS,  SIN 

2500 

0C70’ 

FA  03 

ANI  03 

;GET  LOH  NIBBLE 

2501 

0C72' 

FE 

SHL 

2502 

0C73’ 

FC  13 

ADI  HIO 

2503 

3C75' 

A7 

FLO  GPAGE 

2504 

0C76' 

C4 

SOP 

2505 

0C77' 

2E 

PUSHOO:  DEC  ASTK 

2506 

0C7a' 

F8  00 

LDI  00 

2507 

0C7A' 

:S 

STR  ASTK 

2508 

0C7B' 

SEX  STACK 

2509 

SCAL  U,  CSPARE 

2510 

0C7C' 

68  86 

f 

2511 

0C7E’ 

0C9C' 

+ 

2512 

0C80' 

33  88  ' 

BDF  SATCE3 

2513 

0C82' 

IE 

IHC  ASTK 

2514 

0C83' 

CO  0314' 

LBR  SAVE 

2515 

oca6' 

C4 

SOP 

2516 

0C87' 

C4 

HOP 

2517 

f 

2518 

0C88' 

87 

HATC33:  GLO  GPAGE 

2519 

0C89' 

F3  19 

XRI  CYCLES 

2520 

QC88' 

3A  77' 

m  PUSEOO 

2521 

0C3D' 

C4 

HOP 

2522 

0C8E' 

C4 

HOP 

2523 

0C8F' 

OE 

LDH  ASTK 

2524 

0C90' 

32  98' 

BZ  STKEXR 

2525 

QC92' 

FF  01 

SKI  01 

:DBC.  COUNT 

2526 

0C94' 

5E 

STR  ASTK 

2527 

0C95' 

CA  0314' 

LBHZ  SAVE 

2528 

0C98' 

IE 

STKERX:  IHC  ASTK 

2529 

0C9!’ 

CO  0313' 

LBR  IHCPPC 

2530 
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2531 

2532 

titttttttttttitlittttt 

COMPARE  TIME  SUBROUTINE  tttitutttttttttttt 

2533 

by  'Bait  Till  and  Rait  For 

2534 

2535 

0C9C' 

47 

CMP ARE:  LDA  GPA6E 

:GET  X  10  DIGIT 

2536 

0C9D' 

FE 

SHL 

2537 

0C9E' 

FE 

SHL 

2538 

0C9F’ 

FE 

SHL 

2539 

OCAO' 

FE 

SHL 

2540 

OCAl’ 

EE 

SEX  ASTX 

2541 

0CA2' 

F3 

XOR 

2542 

0CA3' 

FA  FO 

AHI  OFOH 

:CONSIDER  HI  DIGIT 

2543 

0CA5' 

32  AD' 

BE  CHRl 

2544 

0CA7' 

FC  00 

ROMTCH:  ADI  00 

; CLEAR  DF 

2545 

0CA9' 

27 

DEC  GPAGE 

2546 

OCAA' 

E2 

SEX  STACK 

2547 

SRET  R6 

2548 

0CA3' 

63  96 

+ 

2549 

OCAD' 

47 

CHRl:  LDA  GPAGE 

2550 

OCAE’ 

?3 

XOR 

2551 

OCAF' 

FA  OF 

AN!  OFH 

.•CONSIDER  LO  DIGIT 

2552 

0C3i' 

3A  A7' 

3H2  SOMTCH 

2553 

0CB3' 

FF  00 

SMI  00 

;SET  DF 

2554 

0C55’ 

IE 

ISC  ASTX 

2555 

0CB6’ 

E2 

SEX  STACK 

2556 

SRET  R6 

2557 

0C37’ 

68  96 

t 

2558 

2559 

2560 

“«  LOO?  2  -  PVR  OS; 

OFF;  OS  ASD  SEND  DATA  ON  LOOP  2 

2561 

•““*  DO=  ?«R  OFF,  Dl 

=  ?»R  ON,  D2annn  =  PHR  ON  AND  SEND  DATA  LOO? 

2562 

2563 

2564 

0CB9' 

OC 

OOP2X:  LOH  PPC 

;IS  PPC  DO,  Dl,  OR  D2? 

2565 

0C3A' 

FA  03 

AHI  03 

MASK  FOR  2  LSB's 

2566 

OCBC 

32  C9' 

BE  LP20FF 

;  I?  DO,  LOO?  2  PNR  OFF 

2567 

0C3E' 

FB  01 

XRI  01 

2568 

OCCO' 

32  Dl’ 

3E  LP20H 

;  IF  Dl,  LOOP  2  ?¥R  OS 

2569 

0CC2' 

FB  03 

XRI  01  XOR  02 

2570 

0CC4’ 

32  D9' 

BE  LP2XKT 

;  IF  D2,  LOOP  2  PHR  ON  AND  SEND  DA 

2571 

0CC6' 

CO  0D2D' 

LBR  LP2XIT 

;IF  .NOT  1,  2,  OR  3,  GO  TO  NEXT  PPC 

2572 

2573 

0CC9' 

El 

LP20FF:  SEX  IHTPC 

;DO  =  LOOP2  PHR  OFF 

2574 

OCCA' 

61 

OUT  GROUP 

2575 

OCCB’ 

02 

DB  02 

2576 

OCCC 

67 

OUT  RELAYS 
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2577 

OCCD’ 

00 

DB  00 

2578 

OCCE' 

CO  0B13' 

L3X  IHCPPC 

2579 

; 

2580 

OCDl' 

El 

LF208;  SEX  ISTPC 

01  =  'bOOP  2  P8R  OS 

2581 

0CD2’ 

61 

OOT  GBOOP 

2582 

0CD3' 

02 

DB  02 

2583 

0CD4' 

67 

OUT  RELAYS 

2584 

OC05’ 

40 

DB  loog 

2585 

0CD6’ 

CO  0B13' 

LBR  IBCPPC 

2586 

; 

2587 

flCD9' 

?8  68 

LPOXW:  LDI  PPCCI? 

02  =  LOOP2  PSR  OH,  SSSD  LIST  OS  LOOP2  VIA  7T'/2 

2583 

OCDB’ 

A7 

FLO  GPAGE 

CHECX  IF  1st  mi  TIRO  IBIS  PPC 

2589 

OCDC’ 

07 

101  GPAGE 

*“  SOTE:  60  SEC.  TIMEOUT 

2590 

OCOD* 

32  EE' 

BE  LP20TB 

OS  THIS  PART  OF  PPCl  “* 

2591 

flCDE’ 

FB  01 

XRI  01 

2592 

OCEl' 

C2  0011' 

LBZ  LP21ST 

2593 

; 

2594 

0CE4’ 

F8  7E 

LP2KH;  GDI  TTYBHI 

SEXT  TIKE  THRU: 

2595 

0CS6' 

A7 

PLO  GPAGE 

LOOX  AT  TTYS  CHARACTER 

2596 

0Ci7' 

S7 

SEX  GPAGE 

2597 

RLXA  R9 

LOAD  TTY2  ROISTER  ISTO  R9 

2598 

0CE8’ 

68  69 

T 

2599 

aCEA’ 

09 

uOH  R9 

LOOK  AT  TTY2  DATA 

2600 

OCEB' 

FB  EF 

XRI  OFFH 

IS  IT  EE  ? 

2601 

OCSD’ 

C6 

LSIE 

I?  SO,  GO  TO  LP2XIT 

2602 

OCEE' 

CO  0020' 

LBR  LP2XIT 

IF  SOT,  CO.YTIHUE 

2603 

OCEl’ 

EE 

SEX  ASTX 

2604 

0C?2' 

08 

LOS  ASYX 

2605 

3C?3' 

EB  3C 

XRI  03ca 

50  SEC.  UP  ? 

2606 

0C?S' 

C2  0026' 

LBZ  LP2ERR 

I?  SO,  GO  TO  LP2ERR  RO'JTISE 

2607 

0CF8’ 

F8  01 

LDI  01 

IF  SOT,  COKTIHUE  THIS  PPC 

2608 

OCPA' 

E4 

AOO 

ADD  01  TO  ASTX 

2609 

0C?B' 

5E 

STR  AS7R 

2610 

OCFC 

CO  OCOO’ 

LBR  SAYPPC 

2611 

2612 

t 

2613 

OCFf' 

F8  01 

LP20TH:  LDI  01  ; FIRST  TIME  THRO: 

2614 

ooor 

57 

STR  GPAGE 

SET  PPC  COURT  »  01 

2615 

2616 

0Q02' 

El 

SEX  in?C  ; SELECT  I/O  GRQOP  02 

2817 

0003' 

61 

OOT  GROUP 

2618 

0D04' 

02 

OB  02 

2619 

0005' 

87 

OOT  RELAYS 

LOOP  2  PER  OH 

2620 

0006' 

40 

OB  lOOQ 

2621 

r 

2622 

0007' 

F8  80 

LDI  ERROR  jCLEAR  LOOP  2  ERROR  BITS  (0,1!  I?  PRESEST 

I 


1 


I 


I 
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3523 

0DO3' 

A7 

?L0  CPACE 

3524 

ODOA’ 

07 

LOS  OBAGE 

2525 

OCOB’ 

FA  FC 

AHI  OFCH 

2525 

ODOD' 

57 

STR  GPASE 

2627 

ODOE* 

CO  OCOO' 

LBR  SARPPC 

2628 

t 

2623 

f 

253D 

ODir 

F8  02 

LP21ST;  LOI  02 

;2ad  TIHE  THRU: 

2631 

0D13’ 

57 

STR  GPAGE 

SET  PPC  COURT  =  02 

2632 

; 

2633 

0014' 

1C 

IHC  PPC 

SEND  DATA  OH  LOO?  2 

2634 

0015' 

F8  7B 

LOI  mwi 

UNDER  SEQUENCER  CONTROL 

2535 

0017' 

A7 

PLO  GPAGE 

BY  PUTTING  SEND-LIST  POINTER 

2636 

0018' 

4C 

LDA  PPC 

IN  TTYEI  AND  TTYLO  FOR  TTYE 

2637 

0013’ 

57 

STR  GPAGE 

2638 

ODIA' 

17 

ISC  GPAGE 

2633 

OOIB' 

OC 

LOS  PPC 

2840 

OOIC 

57 

STR  GPAGE 

2641 

0010' 

2E 

DEC  ASTR 

3642 

OOIE' 

F8  00 

LOI  00 

SET  ASTX  TO  00  TO  START 

2643 

0030’ 

5E 

STR  ASTR 

TINE  OUT  LOOP 

3644 

0021' 

2C 

3EC  PPC 

DECREMENT  PPC  TRICE  TO  R’OS 

2645 

0022’ 

2C 

DEC  PPC 

AGAIN  ON  NEXT  PASS 

2646 

0023' 

CO  OCOO' 

LBR  SAPPPC 

2647 

2648 

* 

3643 

0026' 

?8  80 

LP2ERR:  LOI  ERROR  ;SBT  LOOP  2  ERROR  BIT  101) 

2650 

0028' 

A7 

PLO  GPAGE 

ERROR  SET  5Y  TINE  OUT 

2651 

0029' 

07 

LOS  GPAGE 

2652 

0D2A' 

F3  02 

ORI  02 

2653 

0020' 

57 

STR  GPAGE 

2654 

' 

2655 

■ 

2656 

0020' 

1C 

u?2XIT;  ISC  PPC  .-SOVE  TO  NEXT  PPC 

2657 

3D2E' 

1C 

ISC  PPC 

2658 

002?' 

1C 

ISC  PPC 

2653 

00  IQ' 

IE 

ISC  ASTX 

2660 

0031' 

F8  68 

LSI  PPCCST  : CLEAR  PPC  COOST 

2661 

0033' 

X7 

PLO  GPAGE 

2662 

0034' 

?8  00 

LBI  00 

2663 

0036' 

57 

STR  GPAGE 

2664 

0037' 

CO  OCOO' 

LBR  SARPPC 

2665 

2666 

2667 

2668 

ttittttttittttu  sgQOESCER  COOSTER  A  COSTROl 

■V 
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2669 


2670 

0D3A’ 

oc 

CTAX:  LOS  PPC 

SET  OR  CLEAR  CRTR  A 

2671 

0D3B’ 

FA  03 

AKI  03 

AO  :  CLEAR 

2672 

OBIS' 

32  45' 

BE  CEACLR 

A1  =  SET  (81  CCCC  AAAAI 

2673 

fl03f' 

F6 

SHR 

A2  =  A3  =  ISSOm 

2674 

0B40' 

33  4£' 

3DF  CTASET 

MERE  CCCC  =  COOHT  IX  SECONDS 

2675 

0D42' 

CO  0313' 

LBR  ISCPPC 

AND  AAAA  =  VECTOR  ADDR  AT  CRT  =  0000 

2676 

f 

2677 

0D45' 

E2 

CTACLR;  SEX  STAGE 

2678 

SCAB  R6,  CT5CLR 

:  CLEAR  COBSTER 

2679 

0D46' 

66  86 

268Q 

0048' 

0DA3' 

+ 

2661 

004A’ 

60 

08  cmo 

2662 

0043' 

CO  0313’ 

LOa  IXCPPC 

2683 

; 

2664 

004E' 

E2 

CTASET:  SEX  STACX 

;SET  COUNTER  3 

2665 

SCAB  R6,  CTSSET 

2666 

0B4F' 

68  36 

f 

2667 

0051' 

0091' 

T 

2666 

0053' 

6C 

03  CTABI 

2689 

0054' 

CO  OCOO' 

1.3R  SAVPPC 

•,GQ  TO  SAVE  PPC 

2690 

2691 

; 

2692 

sjgcEiicEii  CO'JSTER  3  CO.TTROL 

2693 

2694 

0057' 

OC 

CTBX:  LOK  PPC 

SET  OR  CLEAR  CHTR  3 

2695 

0058' 

FA  03 

ARl  03 

30  *  CLEAR 

2696 

0D5A' 

32  52' 

32  CTSCLR 

31  =:  SET  131  CCCC  AAAAI 

2697 

ODSC 

F6 

SHR 

32  =  33  =  IGNORED 

2698 

0050' 

33  63' 

3DF  CTBSET 

'MERE  CCCC  =  ::’:sT  is  szco.vds 

2699 

0D5F' 

CO  0313' 

LBR  ISCPPC 

AND  AAAA  =  VECTOR  ADDR  AT  X  =  OX 

2700 

,* 

2701 

0062' 

E2 

CT8CLR:  SEX  STACX 

2702 

SCAB  R6,  CT5CBR 

: CLEAR  COUNTER  3 

2703 

0063' 

68  86 

f 

2704 

0065' 

OOA3' 

f 

2705 

0067' 

71 

03  CTBBO 

2706 

0068' 

CO  0813' 

LBR  IICPPC 

2707 

/ 

2703 

0063' 

E2 

CTBSET:  SEX  STACX 

:SET  COUNTER  3 

2709 

SCAB  R6.  CTISET 

2710 

0D6C' 

68  86 

+ 

2711 

0D6E' 

0091' 

2712 

OOTfl' 

TO 

08  CTSSI 

2713 

0071' 

CO  OCOO' 

LBR  SARPPC 

;C0  TO  SAVE  PPC 

2714 


I 


r 


PAGE  1-59 


HACSO-IS  3.36 

SEX  313CT;  SD05R9.:!XC  15  SEP  36 


C 

i  /  iJ 

2716 

2717 
271S 

2719 

2720 

2721 

2722 

2723 

2724 

2725 

2726 

2727 
2723 

2729 

2730 

2731 

2732 

2733 

2734 

2735 

2736 

2737 
:'33 
2739 
I’lO 

2741 

2742 

2743 

6  I  l4 

2745 

2746 

2747 

2748 

2749 

2750 

2751 

2752 

2753 

2754 

2755 

2756 

2757 

2758 

2759 

2760 


tttttttttttttttt  SBQOEHCSR  COUNTER  C  CONTROL 


0D74' 

DC 

CTCN: 

LON  PPC 

SET  OR  CLEAR  CNTR  C 

0D75' 

:A  03 

ANI  03 

CO  =  CLEAR 

0077' 

32  7F' 

3Z  CTCCLR 

Cl  =  SET  (Cl  CCCC  AAAA) 

0079’ 

F6 

SNR 

C2  =  C3  =  IGNORED 

007  A' 

33  38' 

30F  CTCSET 

•HERE  CCCC  =  COUNT  IN  SECONDS 

0D7C' 

CO  0313’ 

L3R  INCPPC 

AND  AAAA  ^  VECTOR  AODR  AT  CNT  *-  0300 

fl07F' 

E2 

CTCCLR: 

SEX  STACX 

SCAL  R6,  CTNCLR 

: CLEAR  COUNTER  C 

0080' 

63  36 

+ 

0082' 

OOA3’ 

-f 

0084' 

75 

08  CTCLO 

0085' 

CO  0813' 

L3R  IICPPC 

0088' 

52 

CTCSET: 

SEX  STACX 

SCAL  86,  CTNSET 

;SET  COUNTER  C 

3089' 

68  36 

♦ 

0083' 

0091' 

• 

3080' 

^4 

03  CTCHI 

;G0  TO  SAVE  PPC 

303B' 

CO  OCOO' 

L3R  SAVPPC 

tttmttuttttttttt  SJ1  counter  iN)  SUBROUTINE  ti.t.ttt.tu.t 


0091' 

CTNSET:  INC  PPC 

::NCRESENT  PPC 

3092’ 

46 

LDA  LIST 

:GET  CTAJI  HI 

0093  ' 

A7 

PLO  GPAGE 

0094' 

EC 

SEX  PPC 

3095' 

72 

LOXA 

; STORE  CTINI  HI 

0096' 

57 

STR  GPAGE 

0097' 

17 

INC  GPAGE 

0098' 

72 

LOXA 

; STORE  CT.N;  LG 

0099' 

57 

STR  GPAGE 

0O9A' 

17 

INC  GPAGE 

3098' 

72 

LOXA 

•.STORE  CTiNi  VECT  HI 

0D9C' 

57 

STR  GPAGE 

0090' 

17 

INC  GPAGE 

0D9E’ 

72 

LOXA 

: STORE  CTINI  VECT  LO 

0O9F' 

57 

STR  GPAGE 

OOAO' 

52 

SEX  STACX 
SRST  R6 

;RETURI 

ODAl' 

68  96 

♦ 
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2761 

2762 

2763 
2754 
2765 

0DA3' 

46 

■  ttttttttuttn  clear  COilBTER  tH  (SUBROOTI-BE) 

Called  by  CTAX,  CTBX,  CTCX  ttttuttttttttuttt 

CTMC3X:  LDA  GIST  ;GET  CTIN)  30  AD3RESS 

2756 

0DA4' 

A7 

PLO  GPAGE  : CLEAR  COUNT  OF  CSTISI 

2767 

0DA5' 

E7 

SEX  GPAGE 

2763 

0DA6' 

■3  30 

LDI  00 

2763 

3DA3' 

73 

STXD 

2770 

0DA3' 

73 

STXD 

2771 

OOAA' 

E2 

SEX  STACK 

2772 

2773 

ODAB’ 

68  36 

4- 

SRET  R6  .-RETURN  FROM  SUB 

2774 

2775 

2776 

2777 

2778 
2773 

2730 

2731 

OOAD' 

•8  13 

SET  UP  SEA  DATA  aUFFER  AND  RECORD 

iD:  LDI  sec:  ;SEC.  =  XO? 

2732 

ODAF' 

A7 

PLO  GPAGE 

2733 

ODBO' 

37 

LDN  GPAGE  ;  I?  NOT,  RETURN  TO  LET 

2734 

ODBI’ 

CA  0831' 

LSNZ  SDRET 

2735 

0384' 

17 

INC  GPAGE  :C'fCLES  =  lA? 

2736 

0DB5’ 

37 

LDN  GPAGE 

2737 

03B6' 

FB  lA 

XRI  lAH  ;  I."  NOT,  RET'JRN  TO  L3T 

2738 

0DB8' 

CA  0831' 

LBNZ  SDRET 

2733 

2730 

2731 

QDBB' 

68  CO 

♦ 

RLDI  OKA,  BUFFER  ;S£T  UP  3UFFER  RO  -*  OXA  =  5333 

2732 

03BD' 

5B00 

+ 

2733 

2734 

2735 

2736 

2737 
2733 
2733 
2300 
2801 

ODBF' 

F8  OF 

TRANSFER  DATA  FRON  GLOBAL  PAGE  TO  DNA  BUFFER 

DATA  IS  .’ACRED  DURING  TRANSFER 

DO  EXP.  t  AND  TIME  NORDS  FIRST 

LDI  BXPNUK  ;GP  TO  EXPNUM  (GP  =  OF) 

2802 

ODCr 

A7 

PLO  GPAGE 

2803 

OOC2' 

E7 

SEX  GPAGE 

2804 

0DC3' 

72 

LDXA  ;LD  EXPNUM:  GP  TO  DlOO  iGP=101 

2805 

0DC4' 

FE 

SBL 

2806 

0DC5' 

FB 

SSL 

r 


4  1 


% 
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2307 

0DC6' 

FE 

SEL 

2808 

0DC7' 

FE 

SHL 

2809 

OOC8' 

FI 

OR 

2310 

0DC9' 

50 

STR  DMA 

SXPSUM/DIOO  TO  DMA  BUFFER  00 

2811 

ODCA' 

10 

INC  DMA 

DMA  BUFFER  TO  01 

2312 

ODCB’ 

17 

INC  GPAGE 

GP  ->  Dll 

2813 

ODCC 

72 

LDXA 

LD  DIO;  GP  TO  D1  IG?=12) 

2314 

ODCD’ 

FE 

SHL 

2815 

OOCE* 

FE 

SHL 

2316 

ODCF' 

FE 

SHL 

2817 

ODDO’ 

FE 

SEL 

2818 

ODDI' 

ri 

OR 

2319 

0DD2' 

50 

STR  DMA 

DlO/Dl  TO  DMA  BUFFER  01 

2820 

2DDj' 

10 

INC  DMA 

DMA  BUFFER  TO  32 

2821 

0DD4' 

17 

INC  GPAGE 

GP  ->  313 

2822 

2823 

0DD5' 

72 

LDXA 

LD  H10:GP  TO  HI  (GP»i4) 

2324 

0DD6' 

."E 

SHL 

2825 

30D7' 

FE 

SHL 

2326 

OOD8' 

FE 

SSL 

2827 

0DD9’ 

FE 

SSL 

2828 

ODDA' 

j' 

OR 

2829 

ODDS' 

50 

STR  DMA 

Ha  TO  DMA  BD.'FE.R  32 

2830 

ODOC 

10 

ISC  DMA 

DMA  B'JFFER  TO  03 

2831 

ODDD' 

17 

INC  GPAGE 

G?->Mi: 

2332 

ODOE' 

72 

LDXA 

LD  M10:G?  TO  Ml  .G?*151 

2833 

ODDF' 

FE 

SEL 

2334 

ODEO' 

FE 

SHL 

2335 

ODEl' 

FE 

SHL 

2336 

0DE2' 

FE 

SHL 

2837 

0DE3' 

FI 

OR 

2333 

0DZ4' 

50 

STR  DMA 

MM  TO  BUFFER  03 

2839 

0DE5' 

10 

INC  DMA 

DMA  BUFFER  TO  04 

2340 

:DE6' 

17 

ISC  GPAGE 

G?  - )  S  i.  3 

2341 

0DE7' 

72 

LDXA 

LD  S10:G?  TO  31  lG?=i3i 

2842 

ODES' 

FE 

SHL 

2343 

OOE9' 

FE 

SHL 

2344 

ODEA' 

FE 

SHL 

2845 

ODES' 

FE 

SHL 

2846 

ODEC 

FI 

OR 

2847 

ODED' 

50 

STR  DMA 

;SS  TO  DMA  BUFFER  04 

2348 

2849 

2850  ODES'  10 

2851  ODEF'  F8  60 

2852  mi'  A7 


IRC  DHA 
LDI  PPCSI 
PLO  QPkQl 


DMA  BUFFER  TO  05 
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2853 

0DF2' 

72 

lOIA 

LOAD  PFCHI  iG?=60l;  G?  TO  PPCLO  iG?=51 

2854 

0DF3' 

50 

STR  DMA 

PPCHI  TO  DMA  BUFFER  05 

2855 

3DF4' 

10 

IMC  DMA 

DMA  BUFFER  TO  06 

2856 

0DF5’ 

FO 

LDX 

LOAD  PPCLO  1GP=61);  G?  STAYS  AT  GP=61 

2357 

0DF6' 

50 

SIR  DMA 

PPCLO  TO  DMA  BUFFER  06 

2858 

0DF7' 

10 

IRC  DMA 

DMA  BUFFER  TO  07 

2859 

t 

2860 

\ 

2361 

:  PUT  STATUS  BYTES  IS  BUFFER 

2862 

t 

2863 

0DF8' 

F3  80 

LDI  ERROR 

SET  GLOBAL  PAGE  TO  ERROR  1G?=301 

2864 

ODFA’ 

A7 

FLO  GPAGE 

2365 

0DF3’ 

72 

LDXA 

LOAD  ERROR  1GP=80):  GP  ->  31 

2866 

ODFC 

50 

STR  DMA 

ERROR  «ORD  TO  DMA  BUFFER  07 

2867 

ODFD' 

10 

ISC  DMA 

DMA  BUFFER  TO  08 

2868 

2869 

ODFE’ 

72 

LDXA 

LOAD  ACSTAT  IGP=81):  G?  ->  32 

2870 

ODFF' 

50 

STR  DMA 

ACOUSTIC  STATUS  TO  DMA  BUFFER  08 

2371 

OSOC 

10 

ISC  DMA 

DMA  BUFFER  TO  09 

2872 

) 

2373 

OEOl' 

72 

LDXA 

LOAD  SRSTAT  lGP-82):  GP  ->  33 

2874 

0EO2' 

50 

STR  DMA 

SRSTAT  TO  DMA  BUFFER  09 

2375 

0E03’ 

10 

ISC  DMA 

DMA  BUFFER  TO  3A 

2876 

* 

2877 

3E04’ 

72 

LDXA 

LOAD  PODSTAT  iGP*83);  GP  ->  34 

2873 

0EO5' 

50 

STR  DMA 

PODSTAT  TO  DMA  BUFFER  OA 

2379 

0E06' 

10 

ISC  DMA 

DMA  BUFFER  TO  03 

2380 

) 

2331 

3E07' 

72 

LDXA 

LOAD  CMPSS  IGP=84);  G?  ->  35 

2332 

0EO8' 

50 

STR  DMA 

COMPASS  TO  DMA  BUFFER  03 

2383 

OE09' 

10 

ISC  DMA 

DMA  BUFFER  TO  OC 

2384 

t 

2885 

OEOA' 

72 

LDXA 

LOAD  HDG  (CP=851;  GP  ->  36 

2886 

OE03‘ 

50 

STR  DMA 

HEADIHG  TO  DMA  BUFFER  OC 

2387 

OSOC 

10 

ISC  DMA 

DMA  BUFFER  TO  OD 

2888 

; 

2389 

OEOD' 

72 

LDXA 

LOAD  PUMPl  IGP=86);  G?  ->  37 

2890 

OEOE' 

50 

STR  DMA 

PUMP  1  SPEED  TO  DMA  BUFFER  OD 

2891 

OEOF’ 

10 

ISC  DMA 

DMA  BUFFER  TO  OE 

2892 

r 

2393 

OEIO' 

72 

LDXA 

LOAD  PDMP2  |GP*87):  G?  ->  38 

2894 

DEll' 

50 

STR  DMA 

PUMP  2  SPEED  TO  DMA  BUFFER  OE 

2895 

0E12’ 

10 

IRC  DMA 

DMA  BUFFER  TO  OF 

2896 

! 

2897 

0E13' 

72 

LDXA 

LOAD  CANCST  (G?*88);  GP  ->  98 

2898 

0E14' 

50 

STR  DMA 

CAMERA  FRAME  COURT  TO  DMA  BUFFER  OF 
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2339 

2900 

0E15' 

10 

ISC  DMA 

;  DMA  3UFFSR  TO  10 

2901 

0E16’ 

72 

LDXA 

;  LOAD  PITCH  1GP=39);  GP  ->  8A 

2902 

0E17’ 

50 

STR  DMA 

;  PITCH  TO  DMA  SUFFER  10 

2903 

3904 

0E18' 

10 

ISC  DMA 

/ 

;  DMA  BUFFER  TO  11 

2905 

0E19’ 

72 

LDXA 

:LOAD  ROLL  1C?=8A) ;  G?  -)  33 

2906 

OEIA’ 

50 

STR  DMA 

;  ROLL  TO  DMA  BUFFER  11 

290-1 

2903 

0E13' 

10 

ISC  DMA 

:  DMA  BUFFER  TO  12 

2309 

OEIC 

72 

LDXA 

;LOAD  3ATTUP  (GP=8B):  G?  ->  3C 

2910 

OEID' 

50 

STR  DMA 

;  up  BATTERY  TO  DMA  BUFFER  12 

2911 

2912 

QEIE' 

10 

ISC  DMA 

f 

;  DMA  BUFFER  TO  13 

2913 

OEIF' 

72 

LDXA 

;LOAD  3ATTSY  1G?=8C1;  G?  ->  3D 

2914 

0820' 

50 

STR  DMA 

:  SYSTEM  BATTERY  TO  DMA  BUFFER  13 

2915 

2916 

2917 

0E21' 

10 

ISC  DMA 

r 

t 

;  DMA  BUFFER  TO  14 

2913 

2919 

2920 

0E22' 

EO 

SEX  DMA 

;  START  STORING  A/'D  STRING 

2921 

3E23' 

47 

LDA  SPAGE 

:LCAD  ADGH8  !G?=8D):  G?  ->  5E 

2322 

0E24' 

50 

STS  DMA 

;  ADGH8  TO  D.MA  BUFFER  14 

2923 

0E25' 

10 

ISC  DMA 

;  DMA  BUFFER  TO  15 

2924 

0E26' 

47 

LDA  GPAGE 

;LOAD  ADGL4  (G?*3E):  G?  ->  3F 

2925 

3E27' 

FE 

SSL 

2926 

3E23' 

FE 

SEL 

2927 

3E29’ 

?E 

SEL 

2923 

CEOA' 

FE 

SSL 

2929 

0E2B' 

50 

STS  DMA 

A0GL4/XXXX  TO  DMA  BurfE.R  15 

2930 

0E2C' 

07 

LDH  GPAGE 

;LOAD  ADRH8  iGP=8FI 

2931 

0E2D' 

■6 

SHR 

2932 

0E2E' 

F6 

SER 

2933 

0E2?' 

F6 

SHR 

2934 

JE30' 

F6 

SER 

2335 

0E3r 

FI 

OR 

2936 

0E32' 

50 

STR  DMA 

:  ADGL4/ADRH4  TO  DMA  BUFFER  15 

2937 

3E33' 

10 

ISC  DMA 

:  DMA  BUFFER  TO  16 

2933 

0E34' 

47 

IDA  GPAGE 

;LOAD  ADRS8  IGP=8F1;  G?  ->  ADRL4  (G?=9fl! 

2939 

0E35' 

FE 

SHL 

2940 

0S36' 

FE 

SBL 

2941 

0E37' 

FE 

SBL 

2942 

aE33' 

FE 

SBL 

2943 

2944 

0S33’ 

SO 

STR  DMA 

;  ADXN4  TO  DMA  BUFFER  16 
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2945 

0E3A' 

47 

LDA  GPAGE 

;LOAD  ADRL4  (GP=90I:  GP  ->  AD5H8  ;G?=91i 

2945 

0E3B' 

FA  OF 

ANI  OFH 

2947 

0E3D’ 

FI 

OR 

2943 

0E3E’ 

50 

STR  DMA 

ADRL8  TO  DMA  BUFFER  16 

2949 

0E3?' 

10 

lie  DMA 

DMA  BUFFER  TO  17 

2950 

2951 

DMA  :  17  IADSH8) 

•GP  =  91  (AD5H8) 

2952 

2953 

0E40' 

47 

LDA  GPAGE 

LOAD  AD5H8  iG?=911:  G?  ->  AD5L4  1GP=921 

2954 

0E41' 

50 

STR  DMA 

AD5H8  TO  DMA  BUFFER  17 

2955 

0E42' 

10 

lie  DMA 

DMA  BUFFER  TO  13 

2955 

0E43' 

47 

LDA  GPAGE 

LOAD  AD5L4  IGP=92I;  GP  ->  XPOS  iG?=93) 

2957 

0E44' 

FE 

SHL 

2958 

0E45' 

FE 

SHL 

2959 

GE45' 

FE 

SHL 

2950 

0E47’ 

FE 

SHL 

2961 

0E48' 

50 

STR  DMA 

AD5L4/XXXX  TO  DMA  BUFFER  13 

2952 

0E49' 

47 

LDA  GPAGE 

LOAD  XPOS  (GPs93):  GP  ->  Y2P0S  iG?=94) 

2963 

384A' 

FA  OF 

All  OFH 

2954 

0E4C' 

FI 

OR 

2965 

0S4D' 

50 

STR  DMA 

AD5L4/XPOS  70  DMA  BUFFER  13 

2955 

0E4E' 

10 

IHC  DMA 

DMA  BUFFER  TO  19 

2957 

0E4t” 

47 

LDA  GPAGE 

LOAD  VZPOS  (GP=94);  G?  TO  ADI133  ,G?=35) 

2958 

OESO' 

50 

STR  DMA 

YZPOS  TO  DMA  BUFFER  19 

2959 

aE5i' 

10 

IHC  DMA 

DMA  BUFFER  TO  lA 

2970 

2971 

DO  TRAISMISSOMETER  SIRIHG:  DMA  BUF  ♦  lAH  :G?  =  95H 

2972 

2973 

0E52' 

47 

LDA  GPAGE 

LOAD  ADT1H8  (GP=95):  G?  ->  ADT1L4  ;G?=95i 

2974 

0E53' 

50 

STR  DMA 

ADT1H8  TO  DMA  BUFFER  lA 

2975 

0E54' 

10 

lie  DMA 

DMA  BUFFER  TO  IB 

2976 

0E55’ 

47 

LDA  GPAGE 

LOAD  ADT1L4  GP=95I;  GP  ->  ADT2E8  iG?=97! 

2977 

0E56' 

FE 

SHL 

2978 

flE57’ 

FE 

SHL 

2973 

0E58' 

FE 

SHL 

2980 

DE59' 

FE 

SHL 

2981 

0E5A' 

50 

STR  DMA 

ADT1L4/XXXX  TO  DMA  BUFFER  13 

2982 

0E5B' 

07 

LDl  GPAGE 

LOAD  ADT2H8  (GP=971 

2983 

0E5C* 

F6 

SHR 

2984 

0E5D' 

F5 

SHR 

2985 

OESE' 

F6 

SHR 

2985 

0E5F' 

F6 

SHR 

2987 

0E60' 

FI 

OR 

2988 

OESr 

50 

STR  DMA 

ADT1L4/ADT2H4  TO  DMA  BUFFER  13 

2989 

0E62’ 

10 

lie  DMA 

DMA  BUFFER  TO  1C 

2990 

0E63' 

47 

LOA  GPAGE 

LOAD  ADT2H8  (GP*971:  GP  -)  ADT2L4  iG?=98) 

SiCRO-iS  3.36  PAGE  1-65 

SEA  DUCT:  SD05R9.S1AC  16  SEP  86 


2991 

0E64' 

PE 

SHL 

2992 

0E65’ 

FE 

S3L 

2993 

0E66' 

FE 

SHL 

2994 

0E67’ 

FE 

SHL 

2995 

0E68' 

50 

SIR  DKA  - 

:ADT2M4  TO  DMA  BUFFER  iC 

2996 

0E69' 

47 

LDA  6FAGE 

;LOAD  ADT2L4  1GP=98);  GP  TO  ADT3H8 

IG?=99) 

2997 

0E6A' 

FA  OF 

AHI  OFH 

2998 

0E6C' 

FI 

OR 

2999 

0E6D' 

50 

STR  DMA 

:ADT2L8  TO  DMA  BUFFER  1C 

3000 

0E6E' 

10 

IKC  DMA 

;  DMA  BUFFER  TO  ID 

3001 

f 

3002 

0E6?’ 

47 

LDA  GPAGE 

:LOAD  ADT3H8  (GP=99):  GP  TO  ADT3L4 

(G?=9Ai 

3003 

0E70' 

50 

STR  DMA 

;ADT3H8  TO  DMA  BUFFER  ID 

3004 

0E7r 

10 

IHC  DMA 

:  DMA  BUFFER  TO  IE 

3005 

0E72' 

47 

LDA  GPAGE 

:LOAD  ADT3L4  (GP=9A1 ;  GP  TO  ADT4E8 

iGP=9B) 

3006 

0E73' 

FE 

SHL 

3007 

0E74' 

FE 

SHL 

3008 

0E75' 

FE 

SHL 

3009 

0E76' 

FE 

SHL 

3010 

0E77' 

50 

STR  DMA 

;ADT3L4/XXXX  TO  DMA  SUFFER  IE 

3011 

0E78' 

07 

LDM  GPAGE 

;LOAD  ADT4H8  GP=9B 

3012 

3S79' 

F6 

SHR 

3013 

0E7A’ 

■6 

SHR 

3014 

0E73' 

F6 

SIR 

3015 

0E7C' 

F6 

SHR 

3016 

0E7D’ 

FI 

OR 

3017 

0E7E’ 

50 

STR  DMA 

;ADT3L4/ADT4H4  TO  DMA  BUFFER  IE 

3018 

0S7F' 

10 

ISC  DMA 

;  DMA  BUFFER  TO  IF 

3019 

0E80' 

47 

LDA  GPAGE 

:LOAD  ADT4H8  (03^98);  GP  TO  ADT4L8 

:GF=9C! 

3020 

0E81' 

FE 

SHL 

3021 

0E32' 

FE 

SHL 

3022 

GE83' 

FE 

SHL 

3023 

0E84' 

FE 

SHL 

3024 

0E85' 

50 

STR  DMA 

:ADT4M4/XXXX  TO  DMA  BUFFER  IF 

3025 

0E36' 

47 

LDA  GPAGE 

;LOAD  ADT4L3  1GP=9C1:  GP  TO  ADT'BS 

''GP=9D) 

3026 

0E87' 

FA  OF 

All  OFH 

3027 

0E89' 

FI 

OR 

3023 

0E8A' 

50 

STR  DMA 

;ADT4L8  TO  DMA  BUFFER  IF 

3029 

0E8B' 

10 

INC  DMA 

;  DMA  BUFFER  TO  20 

3030 

r 

3031 

0E8C' 

47 

LDA  GPAGE 

:LOAD  ADT5H8  iGP=9DI:  GP  TO  ADT5L4 

iGP=9E) 

3032 

0E8D' 

50 

STR  DMA 

;ADT5H8  TO  DMA  BUFFER  20 

3033 

0E8E' 

10 

ISC  DMA 

;  DMA  BUFFER  TO  21 

3034 

0E8f’ 

47 

LDA  GPAGE 

;LOAD  ADT5L4  ICP=9E);  GP  TO  ADT6H8 

(CP-9F) 

3035 

0B9fl’ 

FE 

SHL 

3036 

0E91' 

FE 

SHL 
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3037 

0E92' 

FE 

SHL 

3038 

0E93' 

FE 

SHL 

3039 

0E94' 

50 

STB  DHA 

ADT5L4/XXXX  TO  DMA  BUFFER  21 

3040 

0E95' 

07 

LON  GFAGE 

LOAD  ADT6H8  1GP=9F) 

3041 

0E96’ 

?6 

SHR 

3048 

0E97' 

F6 

SHR 

3043 

0E98' 

F6 

SHR 

3044 

0E99' 

F6 

SHR 

3345 

0E9A' 

FI 

OR 

3046 

0E95‘ 

50 

STR  DNA 

ADT5L4/ADT6H4  TO  DMA  BUFFER  21 

3047 

0E9C' 

10 

INC  DMA 

DMA  BUFFER  TO  22 

3048 

8E9D' 

47 

LDA  GPAGE 

LOAD  ADT6H8  1GP=9F1 ;  GP  TO  ADT6L4 

(GP=A01 

3049 

0E9E' 

FE 

SHL 

3050 

0E9F' 

FE 

SHL 

3051 

OEAO' 

•’9 

SHL 

3052 

OEAl' 

FE 

SHL 

3053 

0EA2' 

50 

STR  DMA  ;ADT6M4/XXXX  TO  DNA  BUFFER  22 

3054 

0EA3' 

47 

LDA  GPAGE  :LOAD  ADT6L4  (GP=A0);  GP  TO  ADT7H8 

iGP=Al) 

3055 

QEA4' 

FA  OF 

ANl  OFH 

3056 

0EA6' 

FI 

OR 

3057 

0EA7’ 

50 

STR  DMA  :ADT5L8  TO  DMA  BUFFER  22 

3053 

0EA8' 

10 

INC  DMA 

DMA  BUFFER  TO  23 

3059 

3060 

:GP  =  A1  (ADT7H8):  DMA  = 

BUF  +  23  (ADT7E81 

3061 

t 

3362 

0EA9' 

47 

LDA  GPAGE 

LOAD  ADT7B8  IG?sAl);  G?  TO  ADT7L4 

;G?=A2! 

3063 

OEAA' 

50 

STR  DNA 

ADT758  TO  DMA  BUFFER  23 

3064 

OEAE' 

10 

INC  DNA 

DMA  BUFFER  TO  24 

3065 

OEAC 

47 

LDA  GPAGE 

LOAD  ADT7L4  IGP=A2I:  GP  TO  ADT3H8 

;g?=a3, 

3066 

OEAO' 

FE 

SHL 

3067 

OEAE' 

FE 

SHL 

3068 

OEAF' 

FE 

SHL 

3069 

OEBO' 

FE 

SHL 

3070 

OEBl' 

50 

STR  DMA 

ADT7L4/XXXX  TO  DMA  BUFFER  24 

3071 

0EB2' 

07 

LON  GPAGE 

LOAD  ADT8H8  IGP==A3) 

3072 

0EB3' 

F6 

SHR 

3073 

0EB4' 

F6 

SHR 

3074 

0EB5' 

F6 

SHR 

3075 

0EB6' 

F6 

SHR 

3076 

0EB7' 

FI 

OR 

3077 

0EB8' 

50 

STR  DMA 

ADT7L4/ADT8H4  TO  DMA  BUFFER  24 

3078 

0EB9' 

10 

INC  DMA 

DMA  BUFFER  TO  25 

3079 

OEBA' 

47 

LDA  GPAGE 

LOAD  ADT8H8  (GP:A3);  GP  TO  ADT8L4 

IGP^4 

3080 

OEBB' 

FE 

SHL 

3081 

OEBC 

FE 

SHL 

3082 

OEBD' 

FE 

SHL 
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3083 

0S3E’ 

FE 

SHL- 

3084 

OEBF’ 

50 

m  OKA 

-.miuimi  TO  DMA  BOFFER  25 

3085 

OECO’ 

47 

EDA  CPAGS 

.•LOAD  ADT8L4  1GP=A4);  GP  TO  ADT938  1G?=A51 

3038 

OECl’ 

FA  OF 

AS!  QFB 

3087 

■  0EC3’ 

FI 

OR 

3033 

0EC4' 

50 

S'!!!  DEA 

:ADT8L8  TO  DMA  BDFFER  25 

3089 

0EC5' 

10 

IRC  DKA 

;  DMA  SDFFER  TO  26 

3090 

; 

3091 

0SC6’ 

47 

LDA  GPAGE 

;LOAD  ADT9H8  iGP-A5):  G?  TO  ADT9L4  1GP=A6) 

3092 

0EC7' 

SO 

STR  DMA 

:ADT9H8  TO  DMA  BUFFER  26 

3093 

0EC8' 

10 

ISC  DMA 

:  DMA  SDFFER  TO  27 

3094 

0EC9’ 

47 

LDA  GPAGE 

jLOAD  ADT9L4  IGP=A6):  GP  TO  ADT0H8  iGP=A71 

3095 

OECA' 

?S 

SSL 

3096 

0EC3' 

FE 

SSL 

3097 

OECC 

FE 

SSL 

3093 

OECD’ 

FE 

SSL 

3099 

OECE' 

50 

Sn  DMA 

;ADT9L4/XXXX  TO  DMA  BUFFER  27 

3100 

OECf 

07 

LDS  GPAGE 

:LOAD  AOTOH8  (G?^A7) 

3101 

OEDO' 

t6 

SSR 

3102 

OEDl' 

FE 

SHR 

3103 

3ED2’ 

?6 

SSR 

3104 

OEDl' 

F6 

SSR 

3105 

3ED4' 

FI 

CR 

3106 

0ED5' 

50 

S7R  DMA 

;ADT9L4/ADT0H4  TO  DMA  SUFFER  27 

3107 

0ED6' 

10 

ISC  DMA 

;  DMA  SUFFER  TO  28 

3108 

0ED7' 

47 

LDA  GPAGE 

;LOAD  ADT0H8  (GP=A71:  G?  TO  ADT0L4  iGP=A81 

3109 

3ED8' 

FE 

SHL 

3110 

0ED9' 

i  W 

SSL 

3111 

OEOA' 

fS 

SSL 

3112 

OEDB' 

FE 

SHL 

3113 

OEDC 

50 

SIR  DMA 

;ADT0M4/XXXX  TO  DMA  BUFFER  28 

3114 

OEDO' 

07 

LDS  GPAGE 

:LD  ADT0L4  IGP=A8) 

3115 

OEDE' 

FA  OF 

AHI  OF3 

3116 

OEEO' 

FI 

OR 

3117 

3EE1' 

50 

STR  DMA 

:ADT0L8  TO  DMA  SDFFER  28 

3118 

; 

3119 

r 

3100 

;DATA  IS  SOM  LOADED  ISTO  DMA  30FFER 

3121 

•.START  RECORDER  IF  EEC. 

FLO.  =  AC 

3122 

f 

3123 

0EE2' 

F8  00 

LDI  00 

:SET  DMA  TO  START  OF  SUFFER 

3124 

0EE4' 

AO 

FLO  DMA 

3125 

0EE5' 

F8  32 

LDI  RSCFLG 

; RECORD  IF  RECFLG  =  AC 

3126 

OEET 

A7 

PLO  GPAGE 

3127 

0ES8' 

07 

LDI  GPAGE 

3128 

0EE9' 

FB  AC 

RRI  OACE 
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3142 

3143 

3144 

3145 

3146 

3147 
3143 

3149 

3150 

3151 


3129 

OSES' 

32  F3' 

ll  SDREC 

3130 

OEED' 

F8  00 

LDI  00 

;IF  MOT  =  AC,  SET  TO  00 

3131 

OESF' 

57 

STR  GPAGE 

3132 

OEFO' 

CO  0891' 

LBR  SDRET 

;  AND  RETURN  TO  L3T 

3133 

J 

3134 

0EF3' 

El 

SDREC:  SEE  IHTPC 

; START  RECORDING  AFTER 

3135 

0EF4' 

51 

OOT  GROG? 

3136 

0BF5' 

02 

DB  02 

3137 

0SF6' 

53 

OOT  SDREQ 

:  SENDING  RECORD  LENGTH 

3138 

0EF7' 

29 

DB  SDLKGT 

3139 

0EF8' 

CO  0891' 

LBR  SDRET 

; RETURN  TO  LBT 

3140 

1 

3141 

t 

ttttiititkktttttttttttttttittttttttitttttttlitlttttttttttttttttttttttttttlitttt 
kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk  p{[QK  3  ktkkkkkkkkkkkkkkkkkkkkkkkkiikkktttktttl 

ORC  (HDSTRT  +  lOOOH) 

tkkkkkkkkkkkkkkkkkkkkkkkktkt 


3152 

1000' 

HELP:  SCAL  R6,  TTY 

3153 

1000' 

68  86 

■f 

3154 

1002' 

024E' 

+ 

3155 

1004' 

65  6C  70  3A 

DB  'elp:' 

3156 

1008  ' 

CA 

DB  OCAH 

3157 

1009' 

53  65  61  20 

DB  'Sea  Duct  ' 

3158 

lOOD' 

44  75  63  74 

3159 

1011' 

20 

3160 

1012' 

56  65  72  73 

DB  'Yers.  ' 

3161 

1016' 

2E  20 

3162 

1018' 

35 

DB  TERS 

3163 

1019' 

2£ 

DB 

3164 

lOlA' 

39 

DB  REV 

3165 

lOlB' 

OOCA 

DV  OCAH 

3166 

t 

3167 

lOlD' 

53  79  73  74 

DB  'Systei  Cads:' 

3168 

1021' 

65  6D  20  43 

3169 

1025' 

6D  64  73  3A 

3170 

1029' 

20  21  55  4E 

DB  '  lUNLOCR:  !10CR' 

3171 

102D' 

4C  4F  43  4B 

3172 

1031' 

3B  20  21  4C 

3173 

1035' 

4F  43  4B 

3174 

1038' 

CA 

DB  OCAB 

DB  OCAB 
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DS  'Kesor;  Coiiands: 


31-75 

1039' 

40 

65 

60 

6F 

DS 

Kesor;  Coiiands:' 

3176 

103D' 

72 

79 

20 

43 

3177 

1041' 

6? 

60 

60 

61 

3178 

1045' 

6E 

64 

73 

3A 

3179 

1049' 

CA 

DS 

SCAB 

3180 

104A' 

20 

20 

21 

40 

OB 

'  iMaaaa  dd...;' 

3181 

104E' 

61 

61 

61 

61 

3132 

1052' 

20 

64 

64 

2E 

3183 

1056' 

2E 

2E 

3B 

3184 

1059' 

20 

3F 

40 

61 

OB 

'  ?Maaaa  nann;' 

3185 

105D' 

61 

61 

61 

20 

3186 

1061' 

6E 

6£ 

6£ 

6E 

3187 

1065' 

3B 

3188 

1066' 

20 

3F 

43 

20 

OB 

'  ?C  (CRC)' 

3189 

106A' 

28 

43 

52 

43 

3190 

106E' 

29 

3191 

106F' 

CA 

OB 

OCAH 

3192 

1070' 

20 

20 

40 

20 

OB 

'  S  (Sesory  protect) ' 

3193 

1074' 

28 

40 

65 

60 

3194 

1078' 

5F 

72 

79 

20 

3195 

107C' 

70 

72 

6F 

74 

3196 

1030' 

65 

53 

74 

29 

3197 

1084' 

CA 

SB 

OCAH 

3198 

; 

3199 

1085' 

43 

6C 

6F 

63 

DB 

'Clock  Coiiands:' 

3200 

1089' 

66 

20 

43 

6F 

3201 

1080' 

60 

60 

61 

6E 

3202 

1091’ 

64 

73 

3A 

3203 

1094' 

20 

3F 

54 

3B 

03 

•  ’ 

•  *  / 

3204 

1098' 

20 

3205 

1099' 

21 

54 

49 

40 

DB 

'iTIBE  DDDHHMMSS  1' 

3206 

109D' 

45 

20 

44 

44 

3207 

lOAl' 

44 

48 

48 

40 

3203 

10A5' 

40 

53 

53 

20 

3209 

13A9' 

40 

3210 

lOAA' 

CA 

DB 

OCAH 

3211 

3212 

10A3' 

50 

61 

73 

73 

DB 

'Pass  Thru  Kode:' 

3213 

lOAf 

20 

54 

68 

72 

3214 

10B3' 

75 

20 

40 

6F 

3215 

10B7' 

64 

65 

3A 

3216 

lOBA' 

20 

25 

50 

3B 

SB 

'  IP;  W;  «:  18' 

3217 

lOBE' 

20 

25 

52 

3B 

3213 

10C2' 

20 

25 

53 

3B 

3219 

10C6' 

20 

25 

42 

3220 

10C9' 

CA 

DB 

OCAH 

DB  SCAB 
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3221 

3222 

lOCA’ 

53 

65  71  75 

3223 

lOCE' 

65 

6E  63 

65 

3224 

1002' 

72 

20 

43 

60 

3225 

1006' 

64 

73 

3A 

3226 

1009' 

CA 

3227 

lODA' 

20  20 

3F 

53 

3228 

lODE' 

3B  20 

21 

53 

3229 

10E2' 

3B 

20 

21 

46 

3230 

10E6' 

20 

28 

46 

6F 

3231 

IQEA' 

6C 

6C 

6F 

77 

3232 

lOEE' 

20 

50 

50 

43 

3233 

10F2' 

29 

3234 

10F3' 

CA 

3235 

3236 

:0F4' 

20 

20 

40 

61 

3237 

10F8' 

69 

6E  20 

53 

3238 

lOFC 

65 

71 

75 

65 

3239 

1100' 

6S 

63 

65 

72 

3240 

1104' 

20 

50 

50 

43 

3241 

1108' 

20 

53 

74 

61 

3242 

HOC 

72 

74 

73 

20 

3243 

1110' 

61  74 

20 

33 

3244 

1114' 

30 

30 

30 

3245 

1117' 

CA 

3246 

3247 

1118' 

53 

65 

61 

20 

3248 

me 

44 

75 

63 

74 

3249 

1120' 

20 

43 

60 

64 

3250 

1124' 

73 

3A 

3251 

1126' 

CA 

3252 

1127' 

20 

20 

3F 

48 

3253 

112B' 

3B 

20 

21 

48 

3254 

112F' 

20 

28 

52 

65 

3255 

1133' 

61 

64 

20 

6F 

3256 

1137' 

72 

20 

53 

65 

3257 

113B' 

74 

20 

45 

78 

3258 

113F' 

70 

2E 

20 

48 

3259 

1143' 

64 

67 

2E  29 

3260 

1147' 

CA 

3261 

1148' 

20 

20 

3F  45 

3262 

114C' 

3B 

20 

21 

45 

3263 

1150' 

20 

28 

52 

65 

3264 

1154' 

61 

64 

20 

6F 

3265 

1158' 

72 

20 

53 

65 

3266 

115C' 

74 

20 

45  78 

OB  'Sequencer  Cids;' 


DB  OOCAS 

OB  '  ?S;  !S:  'P  (Folio*  PPCl' 


OB  OCAH 

OB  '  Kain  Sequencer  PPC  Starts  at  3000' 


OB  OCAH 

OS  'Sea  Ouct  Cads;' 


OB  OCAH 

OB  ’  ?H:  !H  (Read  or  Set  Exp.  Hdg.)' 


DB  OCAH 

OB  '  ?E;  !E  (Read  or  Set  Exp.  tl ' 
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3267 

1160' 

70  2E  20  23 

3263 

1164’ 

29 

DS  OCAB 

3269 

1165' 

CA 

3270 

1166' 

20  20  3F  42 

DB  '  ?B  (PBufferl 

3271 

116A' 

20  28  3F  42 

3272 

116E' 

75  66  66  65 

3273 

1172’ 

72  29 

3274 

: 

3275 

1174' 

FF 

DB  DOHE 

3276 

1175' 

CO  0107’ 

LBR  PROMPT 

3277 

3278 

3279 

.tititttttttttttttlitit  )  1 

3230 

aUEBUF;  SCAL  R6,  TTY 

3281 

1178' 

3282 

1178’ 

68  86 

3283 

117A’ 

024E' 

DB  ’  BAIT...' 

3284 

117C’ 

20  20  57  41 

3285 

1180' 

49  54  2E  2E 

3286 

1184’ 

2S 

3237 

1185' 

CAFF 

DB  OCAFFH 

3288 

1 

3289 

1187’ 

F8  18 

LDI  SECl  : 

3290 

1189’ 

A7 

PLO  GPAGE 

3291 

t 

3292 

118A’ 

07 

LDR  GPAGE 

3293 

118B' 

FA  OF 

ANI  OFH 

3294 

113D' 

3A  3A' 

BSE  S'03 

3295 

: 

3296 

118F’ 

17 

ISC  GPAGE 

3297 

1190' 

07 

LDH  GPAGE  ; 

3293 

1191' 

FB  IB 

XRI  IBB 

3299 

1193’ 

3A  90’ 

BSE  S'03 

3300 

RLDI  RD,  BUFFER  ; 

3301 

1195' 

68  CD 

+ 

3302 

1197' 

5800 

3303 

»  ' 

3304 

; 

3305 

SCAL  R6.  m 

3306 

1199' 

68  36 

+ 

3307 

119B’ 

024E' 

+ 

3308 

119D' 

CA 

DB  OCAB 

3309 

119E' 

42  75  66  66 

OB  ■ Buffer :' 

3310 

11A2' 

65  72  3A 

3311 

HAS' 

CA 

DB  OCAB 

3312 

11A6' 

45  58  50  23 

DB  'im  ' 

SAIT  FOR  SEC  =  J 


HAIT  FOR  CYCLES  =  IB 


SEA  DATA  BUFFER 


;FIRST  LIKE: 
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;  ODTPnT  4  BIT  SXPEEIHEST  I 


3313 

llAA' 

20 

3314 

llAB’ 

A1 

DB 

OAIB 

3315 

llAC 

20 

20 

DB 

'  ' 

3316 

llAE' 

A2 

DB 

0A2H 

3317 

llAF' 

8D 

OB 

08DE 

3318 

IIBO’ 

2F 

DB 

'/' 

3319 

3320 

llBl’ 

8D 

DB 

08DH 

3321 

11B2' 

3A 

DB 

*  •  1 

3322 

11B3' 

8D 

DB 

080H 

3323 

11B4' 

3A 

DB 

3324 

11B5' 

8D 

DB 

08DB 

3325 

; 

3326 

1136' 

20 

20 

20 

50 

DB 

•  PPC= 

3327 

113A' 

50 

43 

30 

3328 

IIBD' 

8D 

OB 

08DB 

3329 

IIBE' 

8D 

DB 

08DB 

3330 

3331 

IIBF' 

CA 

DB 

OCAH 

3332 

t 

3333 

; 

3334 

IICO' 

45 

52 

52 

30 

DB 

'ERR*' 

3335 

11C4' 

80 

DB 

08DH 

3336 

11C5' 

20 

20 

41 

43 

DB 

'  ACU* 

3337 

11C9' 

55 

30 

3338 

IICB’ 

3D 

DB 

03DH 

3339 

llCC 

20 

20 

53 

57 

DB 

'  S»*' 

3340 

IIDO' 

3D 

3341 

llDl' 

8D 

DB 

08DH 

3342 

11D2' 

20 

20 

50 

4F 

DB 

'  POD* 

3343 

1136' 

44 

30 

3344 

11D8' 

8D 

DB 

08DH 

3345 

11D9' 

20 

20 

43 

40 

DB 

'  CMPS' 

3346 

HDD' 

50 

53 

30 

3347 

IISO' 

8DCA 

DN 

08DCAH 

3348 

# 

3349 

; 

3350 

11E2' 

48 

44 

47 

30 

DB 

'HOC*' 

3351 

11E6' 

8D 

DB 

08DH 

3352 

11E7' 

20 

20 

20 

50 

DB 

'  PI* 

3353 

USB' 

31 

30 

3354 

USD' 

8D 

DB 

08OB 

3355 

llES' 

20 

20 

50 

32 

DB 

'  P2*' 

3356 

11F2' 

30 

3357 

11F3' 

80 

DB 

080B 

3358 

11F4' 

20 

20 

43 

41 

DB 

'  CAM* 

;  onTPGT  3  DIGIT  DAYS 

: OUTPUT  TIME 

jOUTPUT  SEQUESCEX  PPC 

.•SECOND  LINE: 

:  ERROR  NORD 

;  ACOUSTIC  STATUS 

:  SDITCa  STATUS 

:  RELAY  POD  STATUS 

;  COMPASS,  CR,  LF 
.'THIRD  LINE: 

;  HEADING 

;  PUMP  1  SPEED 

:  PUMP  2  SPEED 
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3359 

ilF8' 

4D  3D 

3360 

IIPA' 

8DCA 

DR  08DCAB 

:  CAMERA  FRAME  CODST,  CR 

3361 

1 

3362 

/ 

;FOORTI  LIHE; 

3363 

IIFC 

50  49  54 

43 

DB  'PITCH*' 

3364 

1200' 

48  3D 

3365 

1202’ 

8D 

DB  08DB 

;  PITCH 

3366 

1203' 

20  20  52 

4F 

D3  '  ROLL*' 

3367 

1207' 

4C  4C  3D 

3368 

120A' 

008D 

DR  0803 

:  ROLL 

3369 

120C‘ 

20  20  75 

50 

DB  ’  uP  Bat*' 

3370 

1210' 

20  42  61 

74 

3371 

1214' 

3D 

3372 

1215' 

8D 

DB  0803 

;  COMPUTER  BATTERY 

3373 

1216' 

20  20  53 

79 

DB  '  SysBat*' 

3374 

121A' 

73  42  61 

74 

3375 

121S’ 

3D 

3376 

121F' 

3DCA 

DR  08DCAH 

;  SYSTEM  BATTERY,  CR,  i 

3377 

t 

3373 

1 

: FIFTH  LIME: 

3379 

1221' 

47  4E  44 

3D 

DB  'GSD*' 

3380 

1225' 

3DA1 

DR  08DA13 

;  A/D  OHD  REF  ;12BIT) 

3381 

1227  ' 

20  20  52 

45 

DB  '  REF*' 

3332 

1223' 

46  3D 

3383 

122D' 

A28D 

DR  0A28D3 

;  A/D  REF  112  BIT) 

3384 

122F' 

20  20  23 

35 

DB  '  +5V*' 

3385 

1233' 

56  30 

3386 

1235' 

3DA1 

DR  08DA18 

:  A/D  t5V  '12  BIT) 

3337 

1237  ' 

CA 

DB  OCAH 

;  CR,  LF 

3388 

; 

3389 

; SIXTH  LIME: 

3390 

1238  ' 

58  50  4F 

53 

DB  'XPOS*' 

3391 

123C’ 

3D 

3392 

123D' 

A2 

DB  0A23 

:  EPOS  i4  BIT! 

3393 

123E' 

20  20  20 

59 

DB  '  i'POS*' 

3394 

1242  ’ 

50  4F  53 

3D 

3395 

1246' 

A1 

DB  3A13 

;  YPOS  (4  31T1 

3396 

1247' 

20  20  20 

5A 

DB  '  2POS*' 

3397 

1248' 

50  4F  53 

3D 

3398 

124F' 

A2CI 

DR  0A2CAB 

;  EPOS  ;4  BIT),  CR.  LF 

3399 

1 

3400 

* 

; SEVENTH  Ll.NE: 

3401 

1251' 

8DA1 

DR  Q8DA1B 

.  mi 

, 

3402 

1253’ 

20 

DB  ’  ' 

3403 

1254' 

A28D 

DR  0A28DH 

;  T2 

3404 

1256' 

20 

DB  ’  ’ 
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73 


3405 

1257  ' 

8DA1 

3406 

1259' 

20 

3407 

125A' 

A28D 

3408 

125C' 

20 

3409 

125D' 

8DA1 

3410 

3411 

125F' 

2E 

3412 

3413 

1260  ' 

A23D 

3414 

1262' 

20 

3415 

1263' 

8DA1 

3416 

1265' 

20 

3417 

1266' 

A23D 

3418 

1268  ' 

20 

3419 

1269' 

8DA1 

3420 

126B' 

20 

3421 

126C' 

A28D 

3422 

3423 

126E' 

OOFF 

3424 

3425 

1270  ' 

CO  0107' 

3426 

3427 

3423 

3429 

3430 

1273  ' 

3431 

1273  ' 

63  86 

3432 

1275' 

024E' 

3433 

1277  ' 

55  51  54  59 

3434 

127B' 

6E  67  20  23 

3435 

127; ' 

48  58  29  20 

3436 

1283' 

20  46  6C  6F 

3437 

1287' 

77  20  66  72 

3438 

128B' 

6F  6D  20  3D 

3439 

128?' 

20  3F  20 

3440 

1292' 

03 

3441 

1293' 

9D 

3442 

1294' 

:F 

3443 

3444 

1295' 

F8  3F 

3445 

1297' 

A7 

3446 

1298' 

3D 

3447 

1299' 

57 

3448 

129A' 

CO  0107' 

3449 

3450 

DH  03DA1H 
DB  '  ' 

D»  0A28DB 
DH  '  ' 

OH  OBDAIH 

DB  ■/' 

DH  QA28DH 
DB  '  ’ 

DH  080A1H 
DB  '  ’ 

DH  aA28DH 
DB  '  ' 

DH  D3DA1B 
DB  '  * 

DH  0A28DE 

DH  DOHE 

L3R  PROMPT 


74 

75 

/ 

76 

77 

78 

79 
710 

;  DONE 


SET  EXPERIMENT  HEADING  VALUE 

HDGSET:  SCAL  R6,  TTY 


DB  'eadiag  iHX)  Flo*  fro*  =  ? 


DB  m  :e:x 

DB  9DH  ;IN4D 

OB  DONE  :DONE 

LDI  3DGEXP  ;SET  GPAGE  TO  HEADING  LOACTICN 

PLO  GPAGE 
GLO  RD 
STR  GPAGE 
L3R  PROMPT 


:  RETURN  TO  PROMPT 
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3451 

■  ttitttttittttmtttttt 

READ  EXPERIMENT  HEADING  VAL’JE 

3452 

; 

3453 

129D' 

•3  8F 

50G?:  101  HLGEXP 

;SET  RD  =  HDGEX?  LOCATION 

3454 

129F' 

AO 

FLO  RO 

3455 

12A0' 

97 

GBI  GFAGE 

3456 

12A1’ 

30 

FBI  RD 

3457 

f 

3453 

SCAL  R6,  TTY 

3459 

12A2' 

68  36 

+ 

3460 

12A4' 

024E’ 

+ 

3461 

12A6' 

6:  61  64  69 

03  ’easing  =  ’ 

3462 

12AA' 

6E  67  20  30 

3463 

12AE' 

20 

3464 

12AF' 

30 

03  SOB 

:GBT  HX  ?R 

3465 

1230’ 

20  28  48  53 

03  ’  (HX)’ 

3466 

1234' 

29 

3467 

1235' 

FF 

03  OOIE 

:DOSE 

3463 

1236' 

CO  0107’ 

L3R  FROKPT 

3469 

3470 

: 

3471 
•  1  ^  * 

•ttftttttktttftttstttittttttt  EXPEillMEHT  HUHBEE  tttttKttittiisKttttkttkttixtk 

J  4  (  6 

3473 

1239’ 

EXP  SET:  SCAL  X6,  TTY 

3474 

1239' 

63  36 

♦ 

3475 

1233’ 

024S’ 

+ 

3476 

123D' 

78  70  2E  20 

03  'xp.  *  ;i  Ci 

ar.l  =  ?  ' 

34^' 

i2cr 

23  20  23  31 

3473 

12C5' 

20  43  68  61 

3479 

:2C9’ 

72  2E  29  20 

3480 

12C0' 

30  20  3F  20 

3431 

1201’ 

03 

03  03H 

:ETX 

3432 

1202’ 

90 

03  9DH 

:IS4D 

3433 

1203’ 

FF 

03  OOBE 

:D0NE 

3484 

3485 

1204’ 

F8  OF 

LOI  EXPSOK 

;5ET  GFAGE  TO  EXFERINENT  NUMBER  LOCATION 

3436 

1206’ 

A7 

FLO  GFAGE 

3487 

1207’ 

30 

GLO  RD 

3433 

1208’ 

57 

STR  GFAGE 

3489 

1209’ 

CO  0107’ 

L3R  FROHFT 

; RETURN  TO  PROMPT 

3490 

3491 

3492 

READ  EXFERINENT  NUMBER  'A  BIT) 

3493 

3494 

12DC’ 

F8  OF 

EXP?:  LOI  SXFHOM 

:SET  RO  =  SXPNUN  LOCATION 

3495 

1208' 

AO 

FLO  RD 

3496 

12DF’ 

97 

GBI  GFAGE 

PI  I  IP - 
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3497 

3498 

3499 

12E0' 

3D 

1 

PHI  RD 

SCAL  R6,  TTY 

3500 

12E1’ 

68  86 

+ 

3501 

12E3' 

024E' 

3502 

3503 

12B5’ 

12E9' 

78  70  2E  20 

23  20 

DB  'xp.  t  ' 

3504 

12EB' 

A2 

DB  0A2H  ;OUT  LON  NIBBLE  OF  EXPNUM 

3505 

12EC’ 

FF 

DB  DONE  ;DONE 

3506 

3507 

3508 

3509 

3510 

3511 

12ED' 

CO  0107' 

LBR  PROMPT 

f 

'.ttttttttkttitttttttttitttttttt  COMPASS  ROUTINE  »*«»»«*““ 
1  ENTERS  FROM  LONG  BRANCH  TABLE 

t 

3512 

12F0' 

F8  13 

CNPSRD: 

LDI  SECl  ;RDN  ONLY  ON  SEC  =  XI 

3513 

12F2' 

A7 

PLO  GPAGE 

3514 

12F3' 

07 

LON  GPAGE 

3515 

12F4' 

FA  OF 

AMI  OFH 

3516 

12F6' 

FB  01 

XRI  01 

3517 

12F8' 

CA  0879' 

LBNZ  CSPRTN 

3513 

12FB' 

17 

INC  GPAGE  ;3ET  GPAGE  =  CYCLES 

3519 

12FC' 

37 

LDH  GPAGE  :  START  ONLY  IF  CYCLES  -  OA 

3520 

12FD' 

?3  3A 

XRI  OAH 

3521 

12FF' 

C2  1312' 

LBZ  CMPPNR 

3522 

1302' 

FB  01 

XRI  lOBH  XOR  OAH)  :READ  IF  CYCLES  =  OB 

3523 

3524 

1304' 

CA  0879' 

. 

LBNZ  CMPRTN 

3525 

1307  ' 

El 

SEX  IXTPC  ;READ  THE  COMPASS 

3526 

1308  ' 

61 

OUT  GRODP 

3527 

1309' 

01 

DB  01 

3523 

130A' 

F8  84 

LDI  CMPSS 

3529 

130C’ 

A7 

PLO  GPAGE 

3530 

130D' 

E7 

SEX  GPAGE 

3531 

130E’ 

6A 

INP  CMPASS 

3532 

3533 

130F' 

CO  0879' 

. 

LBR  CMPRTN  ; RETURN  TO  LBT 

3534 

1312' 

El 

cmn: 

SEX  ISTPC  .-.•IRE  UP  THE  COMPASS 

3535 

1313' 

51 

OUT  GROUP 

3536 

1314' 

01 

DB  01 

3537 

1315' 

62 

OUT  CMPASS 

3538 

1316' 

00 

DB  00 

3539 

3540 

3541 

3542 

1317' 

CO  0879' 

LBR  CMPRTN  ; RETURN  TO  LBT 

IRETDRH  TO  LBT 
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3543 

3544 

3545 

3546 

3547 

131A’ 

F8  19 

( 

t 

t 

t 

SNRD:  LDI  CYCLES 

3548 

131C’ 

A7 

PLQ  GPAGE 

3549 

131D’ 

07 

LOS  GPAGE 

3550 

131E' 

F3  24 

XRI  024H 

3551 

1320' 

32  37' 

BE  SNPNR 

3552 

1322  ' 

FB  01 

XRI  (024E  XOR 

3553 

1324’ 

CA  087C' 

LB8Z  SNRTS 

3554 

3555 

1327' 

El 

t 

SEX  I-NTPC 

3556 

1328  ' 

61 

OUT  GROUP 

3557 

1329’ 

00 

D3  00 

3558 

132A' 

F8  32 

LDI  SNSTAT 

3559 

132C’ 

A7 

PLO  GPAGE 

3560 

132D' 

S7 

SEX  GPAGE 

3561 

132E' 

6A 

IN?  SNITCH 

3562 

3563 

132F' 

Iii 

SEX  INTPC 

3564 

1330' 

61 

OUT  CROUP 

3565 

1331' 

02 

D3  02 

3566 

1332' 

67 

OUT  RELAYS 

3567 

1333' 

OD 

DB  015Q 

3568 

1334’ 

CO  087C' 

L3R  SNRTH 

3569 

3570 

1337' 

El 

NPNR;  SEX  INTPC 

3571 

1338’ 

61 

OUT  CROUP 

15?'' 

<  A 

1339’ 

02 

DB  02 

3573 

133A' 

67 

OUT  RELAYS 

3574 

133B' 

40 

DB  IISQ 

3575 

133C' 

CO  0S7C' 

LBR  SNRTS 

3576 

3577 
3573 

3579 

3580 

3581 

3582 

3583 

133F' 

F8  13 

D:  LDI  SBCl 

3584 

1341’ 

A7 

PLO  GPAGE 

3585 

1342’ 

07 

LDS  GPAGE 

3586 

1343' 

FA  OF 

ANI  OFB 

3587 

1345  ' 

CA  087P' 

LBSZ  ADRTN 

3588 

1348' 

F8  BO 

LDI  ADFLG 

READ  SUITCH  XOUTISE 
EHTERS  FROM  LONG  BRAKCH  TABLE 

;iiDSS  EVERY  SEC. 

; START  OSLY  IF  CYCLES  =  24B 

025HI  ;R£AD  OKLY  If  CYCLES  =  24K 

: INPUT  SNITCH  STATUS  TO 
:  GLOBAL  PAGE  AT  SNSTAT 

;1  Bot  1  1  llasO  ;;  Ias4  ;  Ias3  :  I3s2  .  Iasi 

;TURS  OFF  BOTTOM  SN.  DRIVE  PNR. 

:. RETURN  TO  L3T 

;TURN  ON  BOTTOM  SN.  DRIVE  PNR. 

; RETURN  TO  LBT 

ttttttttti  ^/D  CONTROL  tittttttttttttittutttttttttitttttt 
ENTERS  FROM  LONG  BRANCH  TABLE 

IRUNS  ONLY  ON  SEC  =  0 

.•MASR  FOR  LO  BYTE 

IF  NOT  =  0,  RETURN  TO  LBT 
;A/D  FLAG  =  AC? 
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35!! 

134A' 

A7 

PLO  GFAGE 

3590 

134!' 

07 

LDH  GPAGE 

3591 

134C’ 

FS  AC 

RRI  OACB 

3592 

134E' 

C2  1367’ 

L3E  AD60 

3593 

3594 

1351’ 

F8  00 

LOI  00 

IP  NOT  AC,’  SET  FLAG  =  00 

3595 

1353' 

57 

SIR  GPAGE 

3596 

1354' 

F8  92 

LDI  AD5L4 

AND  CLEAR  A/D  STORAGE 

3597 

1356’ 

A7 

PLO  GPAGE 

LOCATIONS  ON  GPAGE 

359! 

1357’ 

E7 

SEX  GPAGE 

3599 

1358' 

F8  00 

LDI  00 

3600 

135A' 

73 

STXD 

3601 

135B’ 

73 

STXD 

3602 

135C’ 

73 

STXD 

3603 

135D’ 

73 

STXD 

3604 

135E' 

73 

STXD 

3605 

135?' 

73 

STXD 

3606 

1360' 

73 

STXD 

3607 

1361’ 

73 

STXD 

3608 

1362' 

73 

STXD 

3609 

1363’ 

57 

STX  GPAGE 

3610 

1364' 

CO  087F’ 

L3R  ADRTH  ; RETURN  TO  L3T 

3611 

3612 

136T 

F8  19 

ADGO:  LDI  CYCLES 

I?  AC,  CONTINUE 

3613 

1369’ 

A7 

PLO  GPAGE 

:?  CYCLES  NOT  -  0, 

3614 

136A' 

07 

LDN  GPAGE 

DO  NOT  RESET  POINTERS 

3515 

1363' 

3A  73’ 

3NJ  snoa 

IF  --  0: 

3616 

136D’ 

F8  AD 

LDI  SUXPTR 

RESET  NUX  LIST  POINTS! 

3617 

136?’ 

A7 

FLO  GPAGE 

361! 

1370’ 

F8  00’ 

LDI  LOIlNUXLST) 

3619 

1372’ 

57 

STR  GPAGE 

3620 

1373’ 

17 

INC  GFAGE 

RESET  KEN  LIST  POINTS 

3621 

1374’ 

?8  30’ 

LDI  LOIINENLST) 

3622 

1376  ’ 

57 

STR  GPAGE 

3623 

1377' 

?8  19 

LDI  CYCLES 

3624 

1379’ 

A7 

FLO  GPAGE 

3625 

137A’ 

07 

LDI  GPAGE 

3626 

3627 

137!’ 

FF  16 

SKI  18H 

I?  CYCLES  >  153, 

362! 

1370’ 

3B  84’ 

BIF  S+07a 

1  BORRON  DF  =  0) 

3629 

137F' 

?C  00 

ADI  00 

CLR  DF 

3630 

1381’ 

CO  087F' 

LBR  ADRTI 

RETURN  TO  LBT 

3631 

3632 

1384’ 

El 

SEX  IITPC 

IF  CYCLES  <  16  : 

3633 

1385’ 

61 

OUT  GROD? 

SELECT  NUX  GROUP 

3634 

1386’ 

02 

OB  02 

CONTROL  KUX 
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3635 

1387’ 

.*8  AD 

LDI  mJXPTR 

:  HITS  MDX  LIST 

3636 

1389' 

A7 

?L0  GPAGE 

3637 

138A’ 

07 

LDH  GPAGE 

3638 

1383' 

AA 

PLO  RA 

3639 

138C' 

F8  17’ 

LDI  HIGHimLST) 

3640 

138E' 

BA 

PHI  RA 

3641 

138F' 

EA 

SEX  RA 

3642 

1390’ 

62 

OUT  M0X 

;  (OUT  MDX  INCREMENTS  RA) 

3643 

1391’ 

*  ^ 

OOT  SOX 

3644 

1392’ 

SA 

GLO  RA 

;  STORE  MDX  LIST  ADDR 

3645 

3646 

1393  ’ 

57 

SIR  GPAGE 

;  AT  GP  =  MDXPTR 

3647 

1394' 

F8  19 

LDI  CYCLES 

;IF  CYCLES  (  9  : 

3648 

1396’ 

A7 

PLO  GPAGE 

;  XET'JRN  TO  LBT 

3649 

1397' 

07 

LDH  GPAGE 

3650 

1398’ 

FF  08 

SMI  083 

3651 

3652 

139A' 

CB  087F’ 

LSMF  ADRTH 

3653 

139D' 

07 

LDN  GPAGE 

;IF  C’/CLES  >  3  : 

3654 

139S’ 

F6 

SHR 

3655 

139P’ 

33  A4' 

3DF  $+5 

3656 

3657 

13A1' 

CO  087F’ 

LBR  ADRTH 

;  RETURN  TO  L3T  OH  E'7EH  CYCLES 

3658 

13A4' 

F8  A£ 

LDI  MEMPTR 

;  OK  ODD  CYCLES  : 

3659 

13A6' 

A7 

PLO  GPAGE 

;  READ  A/D  AND  STORE  .AT 

3660 

13A7’ 

07 

LDH  GPAGE 

:  GPAGE  LOCATION  REFERENCED 

3661 

13A3’ 

AA 

PLO  RA 

;  3Y  NEMLST 

3662 

13A9' 

OA 

LDH  RA 

3663 

13AA' 

A7 

PLO  GPAGE 

3664 

13AB' 

E7 

SEX  GPAGE 

3665 

13AC' 

63 

IHP  AD3I8 

;  X=GPAGE;  51  8  BITS  TO 

3666 

13AD’ 

lA 

IHC  RA 

;  GPAGE  STORAGE 

3667 

13AZ' 

OA 

LDH  RA 

3663 

13AF' 

A7 

PLO  GPAGE 

3669 

1330’ 

6A 

IHP  ADL04 

;  LO  8  BITS  TO  NULL  LOCATION 

3670 

1331’ 

lA 

IHC  RA 

3671 

1332' 

F8  AE 

LDI  MEMPTR 

; STORE  MEM  LIST  POINTER 

3672 

1334' 

A7 

FLO  GPAGE 

:  ON  GPAGE  AT  NEMPTR 

3673 

1335’ 

8A 

GLO  RA 

3674 

1336  ' 

57 

STR  GPAGE 

3675 

3676 

3677 

3678 

3679 

3680 

1337’ 

CO  087F' 

LBR  ADRTH  ;  RETURN  TO  LBT 

ttttttittttttttitttittitt  TRAHSMISSOMETER  control 

ENTERS  FROM  LONG  BRANCH  TABLE 
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iTR  FLAG  =  AC? 


3631 

133A’ 

El 

TR;  SEX  INTPC 

3682 

13B8’ 

F8  B1 

LOl  TRFLG 

3683 

13BD’ 

A7 

FLO  GPAGE 

3684 

13BE' 

07 

LON  GPAGE 

3635 

13BF' 

FB  AC 

XRl  OACS 

3686 

13C1' 

C2  13EF' 

LBZ  TRCY02 

3687 

r 

3688 

13C4’ 

F8  18 

LDI  SECl 

3689 

13C6’ 

A7 

PLO  GPAGE 

3690 

13C7' 

07 

LOS  GPAGE 

3691 

13C8’ 

FA  OF 

AHI  OFH 

3692 

13CA' 

F3  01 

XRI  01 

3693 

13CC' 

CA  0882' 

LBNE  TRRTN 

3694 

: 

3695 

13CF' 

17 

INC  GPAGE 

3696 

13Dfl’ 

07 

LON  GPAGE 

3697 

13D1’ 

FB  03 

XRI  Q3B 

3698 

13D3' 

CA  0882' 

L3HZ  TRRTN 

3699 

1 

3700 

13D6' 

61 

OUT  GROUP 

3701 

1307' 

02 

OB  02 

3702 

13D8' 

67 

OUT  RELAYS 

3703 

1309' 

04 

OB  043 

3704 

130A' 

F8  31 

LOI  TRFLG 

3705 

130C' 

A7 

FLO  GPAGE 

3706 

1300' 

F8  00 

LOI  00 

3707 

130F' 

57 

STR  GPAGE 

3708 

: 

3709 

13E0' 

F8  A8 

LOI  AOTOL4 

3710 

13E2' 

A7 

PLO  GPAGE 

3711 

13E3' 

E7 

SEX  GPAGE 

3712 

13E4' 

F3  00 

LDI  00 

3713 

13E6' 

73 

STXD 

3714 

13E7’ 

87 

GLO  GPAGE 

3715 

13E8' 

FF  95 

SNI  AD7133 

3716 

13EA' 

33  E4' 

3DF  $-063 

3717 

13EC' 

CO  0882’ 

LBR  TRRTN 

3718 

r 

3719 

13EF’ 

F8  19 

TRCY02:  LDI  CYCLES 

3720 

13F1' 

A7 

PLO  GPAGE 

3721 

13F2' 

07 

LDN  GPAGE 

3722 

13F3' 

FB  02 

XRI  323 

3723 

13F5' 

CA  13FF' 

LBNE  TRCY17 

3724 

13F8' 

61 

OUT  GROUP 

3725 

13F9' 

02 

DB  02 

3726 

13FA' 

67 

OUT  RELAYS 

IF  ==  AC,  GO  TO  TRCY02 
IF  HOT  -  AC; 

SEC  =1  ? 

IF  SEC  SOT  =  XI 
RETORS  TO  LET 

CYCLES  =  03  ? 

IF  CYCLES  SOT  =  03 
RETURH  TO  LBT 

SELECT  RELAYS  GROUP 

;  TRAHSNISSOMTER  ?9R  OFF 

;  SET  TRFLG  -  00 

;  CLEAR  TRASSKISSONETER 

;  A/D  LOCATIONS  OS  GPAGE 


RETURN  TO  LBT 
jCYCLES  =  2? 

;  IF  SOT  =  2,  GO  TO  TRCYl? 

:  IF  =  2: 

:  SELECT  RELAYS  GROUP 


TT 


\ 
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3727 

13?B’ 

44 

DB  i04Q  ;  TSASSHISSOMEIER  ?«R  OS 

3728 

13FC’ 

CO  0882’ 

LBR  TERIH  ;  mm  TO  OBT 

3729 

; 

3730 

13FF’ 

?B  15 

'IBCSn:  XEl  102S  m  1751 

CYCLES  =  17?: IF  SO  GO  TO  TRCY13 

3731 

1401’ 

3A  OA’ 

BSE  TECY18 

IF  =  17; 

3732 

1403’ 

61 

OOT  S800? 

SELECT  m  GROOP 

3733 

1404’ 

02 

DB  025 

1  R1X)=  ISTPC  ) 

3734 

1405’ 

62 

001  SOX 

A/D  =  P3R  OS 

3735 

1406’ 

72 

QB  725 

MOX  =  TRABSHISSOKETER 

3736 

1407’ 

CO  0882’ 

LBR  TRRTS 

RETORS  TO  LET 

3737 

; 

3733 

140A’ 

FB  0? 

7RCY18:  XRI  1175  XOR  1851 

CYCLES  =  19? 

3733 

140C’ 

CA  1418’ 

LBSE  IRCYIB 

IF  SOT,  GO  TO  TRCY19 

3740 

14GF' 

61 

OUT  GROO? 

IF  CYCLES  -  18 

3741 

1410’ 

02 

08  023 

SELECT  m  GROOP 

3742 

1411’ 

62 

DOT  »OX 

A/D  *  START  CSVRT 

3743 

1412’ 

73 

DB  733 

SOX  *  TRASSHISSOSETER 

3744 

1413’ 

62 

QDT  SOX 

3745 

1414’ 

72 

DB  728 

A/D  *  FOR  OS 

3746 

3747 

3748 

1415’ 

CO  0882’ 

LBR  TRRTS 

GO  TO  LBT 

1418' 

?3  01 

TSCY19:  XRI  1188  XOR  1931 

CYCLES  »  193? 

3749 

141A’ 

CA  0882’ 

L381  nm 

I?  SOT  RETORS  TO  LBT 

•750 

1413' 

27 

DSC  GPAGE 

IF  =  19:  SET  3?->  SECl 

3751 

i41E’ 

07 

LOS  GFAG5 

LOOK  AT  SECl 

3752 

111!' 

?A  OF 

ASI  OFH 

IF  0,  STORE  A/D  XT  GP  -  ADTfl38 

3753 

1421' 

3}  27’ 

331  S+06 

3754 

1423’ 

?8  A7 

LOI  ADT0H8 

3755 

1425' 

30  2B' 

BR  5^063 

3756 

1427’ 

07 

LDS  GFAGS  ;I?  SECl  HOT  =  D;  LOAD  SEC. 

3757 

1423’ 

FE 

•  SSL 

SEC.  ‘  2 

3758 

1429' 

FC  93 

ADI  1AOT158I-02B 

STORE  A/D  SI  8  BITS  AT 

3759 

1423’ 

A7 

?LO  GPAGE 

GP*  21SECI1  +  ADTIE8  -  02H 

3760 

142C’ 

El 

SEE  ISTPC 

3761 

142D' 

61 

OOT  GROO? 

3752 

142S’ 

32 

DB  02 

3763 

142?' 

E7 

SEX  GPAGE 

3764 

1430’ 

6B 

ISP  ADS18 

3765 

1431' 

60 

IRX 

STORE  A/D  LO  4  BITS  AT 

3766 

1432' 

6A 

IBP  ADL04 

G?=  21  SECl)  *  .4DT138  -  OIB 

3767 

1433' 

El 

SEX  ISTPC 

3768 

1434’ 

61 

OOT  GROO? 

SELECT  SOX  GROOP 

3769 

1435' 

02 

DB  02 

A/D  *  OK 

3770 

1436’ 

62 

OOT  SOX 

SOX  »  PESDOLOS  1 

3771 

1437’ 

00 

DB  00 

3772 

1438' 

CO  0882' 

LBR  TXRT3 

RETORS  TO  LBT 
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3773 

3774 

1 

3775 

RELAY  POD  AND  ACODSTIC  LINE  CHECK 

3776 

;  “**  ROBS  EACH  SEC.  OS  CYCLE  =  27H  “*• 

3777 

3778 

143B' 

F8  19 

PDCHR:  LOI  CYCLES 

;RUS  ONLY  OH  CYCLE  27H  39  dec.  (Last 

3779 

143D' 

A7 

FLO  GFAGE 

3780 

143E’ 

07 

LDH  GFAGE 

3781 

143F'' 

FB  27 

XRI  27H 

3732 

1441' 

CA  0885' 

LBHZ  FORTH 

:RETDRH  TO  LBT  IF  CYCLE  NOT  =  27H 

3783 

3784 

1444' 

F8  18 

LDI  SECl 

;IF  Sec  =  nO,  reset  FDSTAT,  ACST.AT 

3785 

1446' 

A7 

FLO  GFAGE 

3786 

1447  ' 

07 

LDH  GFAGE 

3787 

1448  ' 

FA  OF 

AHI  OFH 

3788 

144A' 

CA  145F' 

LBHZ  FDSTR 

;  If  SEC.  not  =  nO,  GO  TO  PDSTR 

3789 

t 

3790 

144D' 

El 

PDCLR:  SEl  IHTFC 

3791 

144E' 

61 

ODT  GROUP 

;  SET  RELAY  GROUP 

3792 

144P' 

32 

3B  02 

;  GROUP  2 

3793 

1450' 

F8  33 

LDI  FDSTAT 

; CLEAR  POD  STATUS  lSec.=n91 

3794 

1452' 

A7 

PLO  GRACE 

3795 

1453  ' 

F8  00 

LDI  00 

3796 

1455' 

57 

STR  GFAGE 

3797 

1 

3798 

1456  ' 

El 

ACOCLR:  SEX  IHTFC 

3799 

1457  ' 

61 

ODT  CROOF 

;  SET  GROUP  0 

3300 

1458  ' 

00 

DB  00 

3801 

1459' 

F8  81 

LDI  ACSTAT 

; CLEAR  ACOUSTIC  STATUS  (Sec.=n9) 

3802 

1453' 

A7 

FLO  GFAGE 

3803 

145C' 

F8  00 

LDI  00 

3804 

14SE' 

57 

STR  GFAGE 

3805 

» 

3806 

145F' 

El 

PDSTR:  SEX  IHTFC 

: CHECK  RELAY  PODS  FOR  ACTIVE  RELAYS 

3807 

1460' 

61 

ODT  CRODF 

;  SET  RELAY  GROUP 

3808 

1461' 

02 

DB  02 

:  GROUP  2 

3809 

t 

3810 

1462' 

?8  83 

LDI  FDSTAT 

3811 

1464' 

A7 

FLO  GFAGE 

3812 

1465' 

E2 

SEX  STACK 

; Input  PuD  STATUS 

3813 

1466' 

6F 

IHF  RELAYS 

3814 

1467' 

E7 

SEX  GFAGE 

3815 

1468' 

FI 

OR 

;OR  witli  existing  data 

3816 

1469' 

57 

STR  GFAGE 

; store  in  PDSTAT  on  GFAGE 

3817 

t 

3818 

KiCXO-iS  3.36 
SEA  DDCT:  SD05R9.SAC  1 

3319  146A'  El 

3820  146B'  61 

3321  146C'  00 

3822 

3823  146D'  F8  81 

3824  146F'  A7 

3825  1470'  E2 

3826  1471’  6F 

3827  1472'  E7 

3828  1473'  FI 

3829  1474'  57 
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ACSTR:  SEX  ISTPC 
OUT  GROUP 
DS  00 

LDI  ACSTAT 
PLO  GPAGE 
SEX  STACX 
IHP  PIHG 
SEX  GPAGE 
OR 

STR  GPAGE 


:CHECX  ACOUSTIC  LINK  FOR  ACTIVE  INPUT 
:  SET  GROUP  0 


; INPUT  ACOUSTIC  LINK 


;OR  tl  EXISTING  DATA 
.•STORE  IN  ACSTAT  ON  GPAGE 


1475'  CO  0885' 


LER  PDRTN 


; RETURN  TO  LBT 


1478  ’ 

F8  B3 

HDGCHK:  LDI  SDGFLG 

147A' 

A7 

PLO  GPAGE 

147B' 

07 

LDN  GPAGE 

i47C' 

F3  AC 

XRI  OACH 

147E' 

C2  149C’ 

LBZ  HDGIB 

jEiD  HEADING 

ENTERS  FROH  LONG  BRANCH  TABLE 


CHECK  HDG  FLAG  STATUS; 

AC  =  TURN  ON  HEADING  INDICATOR  ?«R 
(  USED  BF  SE5DENCER  FOR  FAST  .READ 
DURING  ROTATION  1 


ELSE  =  TURN  ON  ?«R  AT  CYC-13  ISEC  =  x9) 
READ  XY2  AT  CYCLIC  A.VD  TURN  OFF  ?HR 
SET  m  FLG  =  00 


3846 

3847 

1481' 

F8  00 

LDI  00 

iForce  HDG  Flag  =  30 

3848 

1483  - 

57 

STR  GPAGE 

;Run  Slow  only  on  Sec  =9 

3849 

1484' 

F8  13 

LDI  SECl 

3850 

I486  ’ 

A7 

PLO  GPAGE 

3851 

1487  ' 

07 

LDN  GPAGE 

3852 

1488  ' 

Ffi  09 

XRI  09a 

3853 

148A' 

CA  14A1' 

L3NE  HDGXT 

3854 

3855 

148D' 

F8  19 

HDGSLO:  LDI  CYCLES 

:CliecX  cycle 

3856 

148F' 

A7 

PLO  GPAGE 

3857 

1490' 

07 

LBN  GPAGE 

3858 

1491' 

FB  IB 

XRI  ISH 

;  If  CYC  =  IB  go  to  HDGIB 

3359 

1493' 

C2  149C' 

LBZ  HDGIB 

3860 

1496' 

FB  07 

XRI  (IBH  XOR  ICH) 

3861 

1498' 

32  A4' 

BZ  BDGIC 

;  If  CYC  =  1C  go  to  HDGIC 

3862 

149A' 

30  Al' 

BR  HDGXT 

;  If  not  IB  or  1C  return  to  LBT 

!CiCE0'18 
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3365 

149C' 

El 

3DG1B:  SEX  IITPC 

;SET  GROUP  02 

3866 

149D’ 

61 

OUT  GROUP 

3367 

149E’ 

02 

03  02 

3868 

149F' 

67 

OUT  RELAYS 

;TDRN  ON  HEADING  INDICATOR  PNR 

3869 

14A0' 

41 

03  lOlQ 

3870 

14A1' 

CO  0888' 

30GXT;  LBR  HDGRTH 

3871 

f 

3872 

t 

3873 

14A4' 

E2 

30G1C:  SEX  STACK 

3874 

SCAL  R6,  30GIH 

;READ  IN  THE  HEADING 

3875 

HAS' 

68  86 

+ 

3876 

14A7' 

HBl' 

+ 

3877 

f 

3878 

14A9' 

El 

SEX  ISTPC 

:SET  GROUP  02 

3879 

14AA' 

61 

OUT  GROUP 

3880 

HAS' 

02 

03  02 

3881 

HAC 

67 

OUT  RELAYS 

jTURN  OFF  HEADING  INDICATOR  PIR 

3882 

HAD' 

01 

DB  OIQ 

3883 

HAE' 

CO  14 Al' 

LBR  HDGXT 

3884 

3885 

3386 

*“  SOBROOTIHE  -  INPUT  HEADING  “* 

3887 

3883 

“  CALLED  3Y  TEIS  ROUTINE  ARC  EXT.  SEOUSNCER  ROTATION 

3889 

3890 

HBl' 

El 

3DGI5::  SEX  ISTPC 

3891 

1432' 

61 

OUT  GROUP 

3892 

1433’ 

01 

DB  31 

3893 

1434' 

63 

OUT  HLATCH 

; LATCH  DATA  IN  ENCODER 

3894 

1435' 

00 

DB  00 

;.NDLL  DATA 

3895 

RLDI  RA  ,00083 

.•SHIFT  IN  DATA  TO  I/O  30ARD 

3896 

1436' 

68  CA 

+ 

3897 

1438' 

0008 

3898 

• 

3899 

H3A' 

64 

HDGAGS:  OUT  3SHI;T 

;SEND  SHIFT  PULSE 

3900 

1433' 

00 

33  30 

3901 

H3C' 

C4 

SOP 

;SNALL  DELAY 

3902 

1430' 

C4 

NOP 

3903 

H3E’ 

2A 

DEC  RA 

3904 

H3P' 

8A 

GLO  RA 

3905 

HCO' 

3A  3A' 

3KE  SDGAGS 

; ANOTHER  SHIFT  PULSE? 

3906 

3907 

HC2' 

F8  85 

LDI  HOG 

; INPUT  HEADING 

3908 

HC4’ 

A7 

PLO  GPAGE 

3909 

HC5' 

E7 

SEX  GPAGE 

3910 

HC6' 

6C 

IN?  SEADSG 
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3911 


3912 

14C7’ 

E2 

SEX  STACK 

3913 

SRET  R6 

3914 

i4C8' 

68  96 

+ 

3915 

t 

3916 

r 

3917 

r 

3918 

xslaY  driver  pulse  ROUTI’IE 

3919 

; 

3920 

14CA’ 

;8  40 

PULCSK:  LOI  PULFLG 

3921 

14CC' 

A7 

PLO  GPAGE 

3922 

14CD' 

07 

LON  GPAGE 

jPulse  flag  *  AC 

3923 

14CE’ 

FB  AC 

XRI  OACH 

3924 

14D0' 

3A  E8' 

3HZ  PSETOO 

;If  not,  set  to  00 

3925 

14D2' 

17 

INC  GPAGE 

;  SET  GPAGE  ^  PULCST 

3926 

14D3' 

07 

LON  GPAGE 

3927 

14D4' 

32  E8' 

3Z  PSETOO 

3928 

1406’ 

FF  31 

SHI  01 

.•DECREMENT  THE  PULSE  COUNTER 

3929 

1408' 

57 

STR  GPAGE 

;  AND  STORE  IT 

■930 

1409' 

El 

SEX  IHTPC 

3931 

14DA' 

61 

OUT  GROUP 

;SET  RELAYS  GROUP 

3932 

140B' 

02 

3S  02 

3933 

140C' 

17 

ISC  GPAGE 

3934 

1400' 

n 

SEX  GPAGE 

3935 

140E' 

07 

LOS  GPAGE 

3936 

140:' 

FA  3F 

ANI  0775 

:Hask  Relay  4 

3937 

14E1’ 

F9  40 

ORI  lOOQ 

;  Set  Relay  Data  Bit  *  OS 

3938 

1453' 

57 

STR  GPAGE 

3939 

14E4' 

67 

OUT  RELAYS 

;  Turn  on  the  Relay  driver 

3940 

14E5' 

CO  14F0' 

LBR  rULXT 

lEXIT  THE  ROUTISE 

3941 

f 

3942 

14E8' 

£1 

PSETOO:  SEX  I.STPC 

3943 

14E9' 

61 

OUT  GROUP 

;SET  RELAYS  GROUP 

3944 

14EA' 

02 

DB  02 

3945 

i4E3' 

78  42 

LDl  PULNUH 

3946 

I4ED' 

A7 

PLO  GPAGE 

3947 

14EE' 

E7 

SEX  GPAGE 

3948 

14EF' 

07 

LON  GPAGE 

3949 

14F0' 

FA  3F 

ANI  077Q 

;3et  Relay  Data  Bit  =  OF; 

3950 

14F2' 

57 

STS  GPAGE 

3951 

14F3’ 

67 

OUT  RELAYS 

;Turn  Off  the  Relay  Driver 

3952 

3953 

14F4' 

27 

OEC  GPAGE 

;SST  GPAGE  »  PULNUH 

3954 

14F5' 

F8  FF 

LOI  OFFH 

3955 

14F7’ 

E7 

SEX  GPAGE 

3956 

14F8' 

73 

sm 

;Set  PULNUH  =  FF  IFF  IS  SOT 

MACRO-18  3.36  ?AGR 
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14F9' 

F8  00 

LDI  00 

14FB' 

73 

STXD 

;Set  PULCNT  =  00 

14FC' 

57 

STR  GPAGE 

;Set  PULFLG  =  00 

14FD' 

CO  088B’ 

PULXT:  LBR  PULRTl 

;SXIT  THE  ROUTINE 

ittitktttiktttttttttlLitliitit  JYZ  POSITION 

ENTERS  FROM  LONG  3RANCS  TABLE 


3966 

1500'  F8  34 

lYZCHX:  LDI  XYZFLG 

CHECK  XYZ  FLAG  STATUS 

3967 

1502' 

A7 

PLO  GPAGE 

AC  =  TURN  ON  OPTO  INTERRUPTER  ?»R 

3968 

1503' 

07 

LDI  GPAGE 

1  USED  BY  SEQUENCER  FOR  FAST  READ 

3969 

1504' 

F3  AC 

XRI  OACB 

DURING  XYZ  POSITIONING) 

3970 

3971 

3972 

3973 

3974 

3975 

3976 

1506' 

C2  1525' 

LBZ  XYZON 

ELSE  =  TURN  ON  PNR  AT  CYC=24  (SEC  =  x9l 
READ  XYZ  AT  CYC=25  AND  TURN  OFF 
SET  XYZ  FLG  =  00 

NOTE; 

““  CYCLE  25  CURRENTLY  MOST  LEAVE  PNR  0 
DUE  TO  3DNR.  BUG  ttttttttttttttttt 

3977 

1509'  :3  00 

LDI  00 

FORCE  XYZFLG  »  00 

3978 

1503' 

57 

STR  GPAGE 

3979 

i50C'  F8  18 

LDI  SECl 

CHECK  FOR  SEC  =  x9 

3980 

150E' 

A7 

PLO  GPAGE 

3981 

150F' 

07 

LDI  GPAGE 

3982 

1510' 

FB  09 

XRI  09S 

3983 

1512' 

CA  1522' 

LBNZ  XYZXT 

IF  NOT  =  x9,  EXIT 

3984 

1515' 

F8  19 

LDI  CYCLES 

3985 

1517' 

A7 

PLO  GPAGE 

3986 

1518' 

07 

LDN  GPAGE 

3987 

1519' 

FB  24 

XRI  24E 

3988 

151B' 

C2  1525' 

LBZ  XYZON 

3989 

151E’ 

FB  01 

XRI  (243  XOR  253! 

3990 

1520' 

32  2C' 

3Z  XYZIN 

3991 

1522’ 

CO  088E'  X 

YZXT:  LBR  XYZRTN 

1525'  El 
1526'  61 

152T  02 

1528'  67 

1529'  4C 
152A'  30  22' 


XYZON:  SEX  IXTPC 
OUT  CROUP 
01  02 

OUT  RELAYS 
OB  114g 
BR  XYZIT 


152C'  El 
152D'  61 
152E'  00 


XYZIH:  SEX  IIITPC 
OUT  GROUP 
OB  00 


:TORN  ON  OPTO  INTERRUPTER  ?«R 
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4003 

152F' 

El 

SEE  GPAGE 

4004 

1530' 

e8  93 

LDI  XPDS 

4006 

1532' 

Al 

PLO  GPAGE 

4006 

1533' 

65 

ISP  1 

;ISPUT  X  POSITIO.S 

4001 

1534’ 

FA  OF 

AHI  0F5 

;KASX  'JSUSED  BITS 

4006 

1536' 

51 

STS  GPAGE 

4005 

1531’ 

11 

IHC  GPAGE 

;G?AGE  =)  YX  POSITIOS 

4010 

1536’ 

6C 

ISP  n 

4011 

/ 

4012 

1535' 

SEX  ISTPC 

4013 

153A’ 

61 

OUT  GROUP 

4014 

153B' 

02 

D5  03 

4015 

153C' 

61 

OUT  RELAYS 

4016 

153D’ 

4C 

38  114g 

;TURS  OFF  OPTO  ISTESRDPTES  P’lfR  ^ 

4011 

.Y0T2  ?»s  :s  kept  os  -  due  to 

4016 

1S3E’ 

30  22’ 

SR  mn 

4015 

4020 

4021 

**““»  PASS  THRU  .YODE  ‘‘‘t****** 

4023 

4024 

4025 

1540’ 

F8  OA  FTHRU:  LDI  GRPSAV 

:?W  J?  LOOP  2 

4026 

1542’ 

A7  ■ 

?LC  GPAGE 

4021 

1:43' 

n  02 

LDI  02 

:  STORE  YES  :/0  GROUP 

4023 

1545’ 

51 

STS  GPAGE 

4025 

1546' 

El 

SEX  GPAGE 

4030 

1547  ’ 

ol 

OUT  GROUP 

4031 

1548' 

E3 

SEX  PC 

4032 

1549  ’ 

67 

OUT  RELAYS 

;?0'iER  U?  LOOP! 

4033 

154A' 

40 

38  lOOQ 

4034 

1548’ 

21 

DEC  GPAGE 

4035 

154C' 

F8  06 

LDI  UARTS 

4036 

154S' 

57 

STS  GPAGE 

4331 

154F' 

E7 

SEX  GPAGE 

4033 

1550' 

61 

OUT  CROUP 

lilSSET  UART  1/0  GROUP 

4035 

1 

4040 

1551' 

F8  02 

LDI  PLEYEL 

:SET  PASS  LEVEL  =  01 

4041 

1553  ' 

kl 

PLO  GPAGE 

4042 

1554' 

F6  01 

LDI  01 

4043 

1556' 

57 

STS  GPAGE 

4044 

( 

4045 

1557  ’ 

E2 

SEX  STACX 

4046 

SCAL  S6,  DELAY! 

.•SAIT  POS  LOOP  2  POSES  TO  SETTLE 

4041 

1556’ 

66  66  I' 

4048 

155A' 

0198’  + 

SCkL  U,  DSLAY2  ;  AHD  UARTS  TO  CLEAR  BREAK 
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4049 

4050 

155C' 

68  86 

4051 

155E’ 

019B' 

4052 

4053 

1560' 

68  36 

4054 

1562' 

019B' 

4055 

4056 

1564' 

E2 

4057 

1565' 

6C 

4053 

1566' 

F8  FE 

4059 

1568' 

A7 

4060 

1569' 

F8  23 

4061 

156B' 

57 

4062 

4063 

156C' 

68  86 

4064 

156E' 

167D' 

4065 

1570' 

E2 

4066 

1571' 

65 

4067 

1572' 

F6 

4068 

1573  ' 

38  93' 

4069 

1575' 

FA  06 

4070 

1377' 

32  7C' 

4071 

1579' 

6A 

4072 

157A’ 

30  93' 

4073 

4074 

157C' 

•8  FS 

4075 

157E' 

A7 

4076 

i57F' 

•7 

4077 

1530  ' 

6A 

4073 

1581' 

FA  IF 

4079 

1533' 

57 

4080 

1584' 

F3  23 

4081 

1586' 

C2  OOAB' 

4032 

1539' 

FB  06 

4033 

153B' 

::  :50A' 

4034 

158E' 

4035 

4036 

155F' 

63  36 

4037 

1591' 

1670' 

4088 

4089 

4090 

1593  ' 

60 

4091 

1594' 

F6 

4092 

1595  ' 

C3  15B8' 

4093 

1598' 

FB  08 

4094 

159A' 

C2  163E’ 

SCAL  R6,  DELAY2 


RADDR2: 

SEX 

STACK 

IN? 

3ATA2 

LDI 

lOLOC 

PLQ 

GPAGS 

LOI 

STR 

GPAGE 

SCAL  R6,  XMTLF2 

DAI: 

SEX 

STACK 

INP 

STATl 

SHR 

3NF 

3A2 

AN! 

06E 

3X  KEEP3 

ISP 

DATAl 

3R  DA2 

KSSP3: 

LDI 

lOLOC 

PLO 

GPAGE 

SEX 

GPAGE 

ISP 

DATA! 

ANI 

7FH 

STR 

GPAGE 

XRI 

T 

LBZ 

lOERR 

XRI 

I'A'  XOR  '1 

LBZ 

PSOOE 

PNODEX: 

SEX 

STACK 

SCAL  R6,  KirrL?2 


DA2:  ISP  STAT2 

SER 

LBOF  DA2YES 
XRI  03H 
LBZ  PASSBR 


.•CLEAR  ANY  DATA  FROM  LOOP  2 
;XHIT  OS  LOOP  2 


.•CHECK  FOR  DAI 
:DA1? 

;IF  NOT  GO  TO  DA2 

:IF  DAI,  MASK  AND  CHECK  ?E, 

: CLEAR  BAD  DATA 


;.NASK  NSB 
:IS  IT  3  ? 
i  ;I3  IT  %  ? 


DA2  ? 

IF  NOT,  CHECK  ES  LOOP  2 
IF  ES  LOOP  2, 

GO  TO  PASS  BREAK 
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4095 

159D‘ 

30  70' 

BR  DAI 

:I?  SOT  CO  TO  DAI 

4096 

; 

4097 

159F' 

5D 

DA2M0R:  IHP  STAT2 

4098 

15A0’ 

F6 

SSR 

:DA2? 

4099 

15A1’ 

C3  1538' 

DSDF  DA2FES 

;IF  SOT,  CHECK  ES  LOOP  2 

4100 

1:A4' 

?B  08 

XRI  08H 

;IF  ES  LOOP  2, 

4101 

15A6' 

C2  163E' 

L3Z  PASSBR 

;  GO  TO  PASS  BREAK 

4102 

15A9' 

1C 

INC  RC 

:I?  SOT,  ISC  TISE  OUT  LOOP 

4103 

15AA' 

9C 

GHI  RC 

4104 

15AB' 

?3  02 

XRI  02 

;IF  SOT  512  LOOPS  (2  CHAR!, 

4105 

15AD' 

CA  159P' 

L3HZ  3A2N0R 

:LOOK  FOX  SORE  DATA  OS  2 

4106 

15B0' 

S2 

SEX  STACK 

4107 

SCAL  R6,  TSRE? 

:I?  512,  SAIT  FOR  TSRE  ASD 

4103 

1581' 

68  36 

r 

4109 

15B3' 

02F0' 

+ 

4110 

15B5' 

CO  1570' 

LSR  DAI 

;  GO  TO  DAI 

4111 

; 

4112 

15B8' 

FA  06 

DA2YES:  ASI  068 

;SASK  FOR  FE,  PS 

4113 

15BA' 

CA  163S' 

LSXZ  PASSBR 

:I?  FE  OR  ?£,  GO  TO  PASS  3REAK 

4114 

15BD' 

F8  00 

LDI  00 

4115 

153?' 

3C 

PHI  RC 

4116 

15C0' 

AC 

PLO  RC 

4117 

15C1' 

F3  rS 

LDI  lOLOC 

;:f  data  is  ok,  isput  data 

4113 

15C3' 

A7 

PLO  SPACE 

;  OH  LOO?  2  TO  I,'0  LOCTIOS 

4119 

15C4' 

11 

SEX  SPACE 

il2G 

i5C5' 

6C 

ISP  3ATA2 

4121 

15C6' 

FA  7? 

AHI  7FH 

;SASK  SSB 

4122 

15C3' 

57 

STR  SPACE 

4123 

15C3’ 

■3  33 

XRI  03 

;IS  IT  ETX  ? 

4124 

15CB' 

C2  15E2' 

LBZ  PKT2 

;IF  ETX,  ADD  A  PROHPT 

4125 

4126 

13CE' 

E2 

SOTETX:  SEX  STACK 

:IF  DATA  LOOP  2  IS  SOT  ETX: 

4127 

15C:' 

6B 

ISP  STATl 

:CHECK  PE,  ?£  OH  LOOP  1 

1  «  ft 

1x60 

15D0' 

FA  3C 

AHI  OCH 

4129 

1502' 

:A  30A3' 

L3.VZ  ICERR 

:3RA.VC3  I?  ERROR 

4130 

15D5' 

02 

LDS  STACK 

4131 

15D6' 

»  »d 

S3L 

;i(AIT  FOR  THRE  LOOP  1 

4132 

15D7' 

C3  15CE' 

L3SF  SOTETX 

4133 

15DA' 

U  1 

SEX  SPACE 

4134 

15DB' 

62 

OUT  DATAl 

;IH  LOOP  2  ->  OUT  LOO?  1 

4135 

15DC' 

27 

DSC  GPAGE 

4136 

15DD' 

?C  00 

AOI  00 

; CLEAR  DF 

4137 

15DF' 

CO  159F' 

IBR  DA2HOR 

;CO  TO  DA2MOR 

4138 

* 

4139 

15E2' 

PHT2:  SEX  STACK 

;I?  DATA  LOO?  2  =  ETX: 

4140 

15E3' 

63 

IHP  STATl 

.•CHECK  FE,  PE  ON  LOOP  1 
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41^1 

15E4' 

FA  OC 

All  DCS 

; BRANCH  IF  ERROR 

4142 

15E6' 

CA  OOAB' 

L3HZ  IQERR 

4143 

15E9' 

02 

LDN  ma 

4144 

15EA’ 

FE 

SHL 

;NAIT  FOR  THRE  LOOP  1 

4145 

15EB' 

3B  E2' 

BRF  PM72 

4146 

15ED' 

E3 

SEX  PC 

4147 

15EE' 

62 

GOT  DATAl 

; OUTPUT  PROMPT  CHAR.  OH  LOOP 

4148 

15EF' 

3A 

DB  PmCHR 

4149 

15F0' 

FC  00 

AOI  OOE 

:  clear'  df 

4150 

15F2' 

E2 

SEX  STACK 

4151 

15F3' 

6B 

XSTETX:  ISP  STATl 

; CHECK  FE,  PE  OS  LOOP  1 

4152 

15F4' 

FA  OC 

ASI  OCS 

4153 

15F6' 

CA  OOAB' 

LBHZ  lOERR 

: BRANCH  IF  ERROR 

4154 

15F9’ 

02 

LDH  STACK 

4155 

15FA' 

FE 

SHL 

;»AIT  FOR  THRE  LOOP  1 

4156 

15FB' 

3B  F3' 

BSF  XSTETX 

4157 

15FD' 

E7 

SEX  GPAGE 

4158 

15FE’ 

62 

GOT  DATAl 

;IS  LOOP  2  ->  OUT  LOOP  1 

4159 

15FF' 

27 

DSC  GPAGE 

4160 

1600’ 

FC  00 

ADI  00 

; CLEAR  DF 

4161 

1602' 

E2 

SEX  STACK 

4162 

SCAL  ’6,  TSRE? 

:iiA::  ?SREl  AND  CLEAR  ECHO  1 

4153 

1603' 

68  86 

- 

4164 

1605’ 

02F0' 

t 

4165 

1507  ' 

CO  1570' 

L3R  DAI 

:GO  TO  DAI 

4166 

t 

4157 

t 

4168 

t 

4169 

16flA’ 

E2 

PMGDE:  SEX  STACK 

4170 

SCAL  R6,  IT8 

;PNODE  ENTERED  KHES  LOOP  1  = 

4171 

150B' 

68  36 

t 

4172 

160D' 

022E' 

+ 

4173 

160F' 

50 

DB  'P' 

4174 

1610' 

161F' 

D»  PISC 

;0?EN  THE  NEXT  LONER  LEVEL 

4175 

1512’ 

52 

DB  'R' 

4i/s 

1613' 

1564' 

D«  RADDR2 

; READDRESS  THE  CURRENT  LEVEL 

4177 

1615' 

42 

DB  'B' 

4178 

1616’ 

163E' 

DU  PASSBR 

;SEND  BREAK  OS  LOOP  2 

4179 

1518' 

58 

DB  'X' 

4130 

1619' 

1658’ 

Dl  PDEC 

.■DROP  THE  LONEST  LEVEL 

4131 

151B’ 

FF 

DB  DGHE 

4182 

16iC’ 

CO  158E' 

LBR  PSODEX 

4183 

t 

4184 

1 

4185 

161F’ 

F8  02 

PISC:  LDI  PLEVEL 

.-INCREMENT  PASS  LEVEL 

4186 

1621’ 

A7 

FLO  GPAGE 

V 

\ 
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4187 

1622  ' 

07 

LD8 

GPAGE 

4133 

1623' 

?C  91 

ADI 

OIH 

4139 

1625' 

57 

STS 

GPAGE 

4190 

1626' 

?8  FE 

LDI 

lOLOC 

4191 

1628' 

A7 

PLO 

GPAGE 

4192 

1629' 

:3  25 

LDI 

'V 

4193 

1628' 

57 

STR 

GPAGE 

4194 

162C' 

E2 

SEX 

STACX 

4195 

SCAL  R6,  XMTLP2 

4196 

162D' 

63  36 

.f 

4197 

162F' 

167D' 

+ 

4193 

1631' 

F8  FE 

LDI  lOLOC 

4199 

1633  ' 

A7 

PLO  GPAGE 

4200 

1634’ 

F8  50 

LDI 

4201 

1636' 

57 

STS  GPAGE 

4202 

SCAL  R6,  XNTLPR 

4203 

1637' 

53  36 

+ 

4204 

1639' 

1670' 

+ 

4205 

153B' 

CO  1593' 

LBR  DA2 

4296 

4207 


4203 

163E' 

?8 

02 

PASSER:  LDI  PLEVEL  ;C:EAR  PASS  LEVEL 

4209 

1540' 

A7 

PLO  GPAGE 

4210 

1641' 

?3 

00 

LDI  00 

4211 

1643' 

57 

STS  GPAGE 

4212 

:  SEX  STACK  : 

4213 

:  SCAL  R6,  XKTBRS  ;3REAX  LOOP  2  iSOT  OSED  RIFS  LOOP2 

4214 

;  :  PRR  CONTROL  SYSTEM) 

4215 

1544' 

?8 

OA 

LDI  GRPSAV 

4216 

1646' 

A7 

PLO  GPAGE 

4217 

1647' 

F8 

02 

LDI  02 

4213 

1649' 

57 

STR  GPAGE 

4219 

164A' 

E7 

SEX  GPAGE 

4220 

1648' 

61 

OUT  GROUP 

4221 

164C' 

E3 

SEX  PC 

4222 

164D' 

67 

OUT  RELAYS  ;LQO?2  PORER  OF: 

4223 

164E' 

00 

DB  00 

4224 

164F' 

27 

DEC  GPAGE  :RESET  L'ART  GROUP 

4225 

1650' 

E7 

SEX  GPAGE 

4226 

1651' 

F8 

06 

LDI  DARTS 

4227 

1653' 

57 

STR  GPAGE 

4223 

1654' 

61 

OUT  GROUP 

4229 

1655' 

CO 

0107' 

LBR  PROMPT  :EXIT  PASS  THRU  MODE  TO  PROMPT 

4230 

• 

4231 

• 

4232 

1658' 

F8 

02 

PDEC;  LDI  PIEVEL 

PDEC;  LDI  PIEVEL 
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4233 

165A' 

A7 

PLO  GPAGE 

4234 

165B' 

07 

LDN  GPAGE 

4235 

165C' 

FB  01 

XXI  01 

;IS  P  LEVEL  01  ? 

4236 

165E' 

CO  163E' 

L3R  PASSBR 

;  IF  SO,  BREAK  LOOP 

4237 

1661' 

07 

LDB  GPAGE 

4238 

1662' 

FF  01 

SMI  01 

;  IF  SOT,  DECREMENT 

4239 

1664' 

57 

STX  GPAGE 

4240 

1665' 

F8  FE 

LDI  lOLOC 

4241 

1667  ' 

A7 

PLO  GPAGE 

4242 

1668' 

F8  25 

LDI  'V 

; OUTPUT  A  ON  LOOP  2 

4243 

166A' 

57 

STX  GPAGE 

4244 

1663' 

S2 

SEX  SUCK 

4245 

SCAL  X6,  XMTLP2 

4246 

166C' 

68  86 

+ 

4247 

166E' 

1670' 

+ 

4248 

1670' 

F8  FE 

LDI  lOLOC 

4249 

1672' 

A7 

PLO  GPAGE 

; OUTPUT  X  ON  LOOP  2 

4250 

1873  ' 

F8  58  • 

LDI  'X' 

4251 

1675' 

57 

STX  GPAGE 

4252 

SCAL  X6,  XMTLPO 

4253 

1676  ' 

68  86 

+ 

4254 

1678  ' 

1673' 

4255 

167A' 

CO  1593' 

LBX  3A2 

;GO  70  DA2 

4256 

4257 

XMIT  LOOP  2 

4258 

.ttttttmtttttutttm 

4259 

4260 

1673' 

F8  FE 

XMTLP2:  LDI  lOLOC 

4261 

167F' 

A7 

PLO  GPAGE 

4262 

1680  ' 

S7 

SEX  GPAGE 

4263 

1531' 

FO 

LDX 

4264 

1682' 

AA 

PLO  RA 

;ALSO  PUT  IT  IS  RA 

4265 

1683' 

64 

ODT  DATA2 

.•OUTPUT  CHARACTER  LOOP  2 

4266 

1684' 

27 

DEC  GPAGE 

4267 

1685' 

E2 

SEX  STACK 

4268 

1686' 

sC 

IHP  3ATA2 

; CLEAR  DA 

4269 

1687  ' 

6D 

XAIT6:  IMP  STAT2 

1638' 

FA  CO 

AXI  OCOH 

;SASK  .-OR  THRE  i  TSRE 

4271 

168A' 

F3  CO 

XRI  OCOH 

4272 

168C' 

3A  37' 

BRZ  VAIT6 

4273 

SCAL  R6,  DELAY2 

;2  BIT  DELAI 

4274 

168E' 

68  86 

4275 

1890' 

019B' 

+ 

4276 

1692' 

E7 

SEX  GPAGE 

4277 

1693' 

6C 

IHP  DATA2 

.■INPUT  ECHOED  CHAR 

4278 

1694' 

FA  7F 

ASI  077H 

;MASK  MSB 
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4279 

1696  ' 

57 

STR  CPACE 

4280 

1697' 

8A 

GLO  RA 

: COMPARE  OITH  XKIT  CHAR 

4281 

1698  ’ 

F3 

XOR 

4232 

1699' 

CA  163E' 

LBHZ  PASS3R 

;3REAE  I?  ECHO  HAS  BAD 

4283 

169C’ 

E2 

SEX  STAGE 

4284 

SRET  R6 

4285 

169D' 

58  96  t 

4287 

4288 

4289 

•  kttttktttktttttttttttttlLtt  XI1ITBR2  ^'‘^^kkkkkkktkkkitttkkkkkkttkk 

4290 

t 

1  3REAE  LOOP  2) 

4291 

4292 

169F' 

F8  OA  XJ(TBR2: 

LDI  CRPSAV 

.•SELECT  'JART  I/O  GROUP 

4293 

16A1' 

A7 

PLO  GPAGE 

;  AND  STORE  OX  GLOBAL  PAGE 

4294 

16A2' 

F8  06 

LDI  UARTS 

4295 

16A4' 

57 

STR  GPAGE 

4296 

16A5' 

£7 

SEX  GPAGE 

4297 

16A6' 

61 

007  GRODP 

4298 

16A7' 

E3 

SEX  PC 

4299 

16A8' 

65 

007  CNTRL2 

;3REAE  LOOP  3 

4300 

16A9' 

52 

DB  (40H  OR  FORHTl! 

4301 

16AA' 

F3  70 

LDI  BR2CHT 

4302 

16AC' 

A7 

PIQ  GPAGE 

4303 

16AD' 

F8  OA 

LDI  OAfi 

;0A  =  250  sSZC.  llO  I-NTERRUPT  CYCLES) 

4304 

16  A:' 

57 

STR  GPAGE 

4305 

16B0' 

£2 

SEX  STAGE 

4306 

SRET  R6 

4307 

1531' 

68  96 

4308 

t 

4309 

t 

4310 

t 

4311 

4312 

ORC  (EEL?  +  700H! 

4313 

f 

HUE  AND  A/D  CONTROL 

4314 

J 

4315 

1700' 

0000  HUXLS7: 

DO  00003 

CYCLE  00  A/D  OFF  HUE  PITCH 

4316 

1702' 

0000 

DO  00003 

CYCLE  31 

4317 

1704' 

0000 

DO  00003 

CYCLE  02 

4318 

1706' 

0000 

DO  00003 

CYCLE  03 

4319 

1708' 

GOOD 

DO  00003 

CYCLE  04 

4320 

170A' 

0000 

DO  00003 

CYCLE  05 

4321 

170C' 

0000 

DO  00003 

CYCLE  06 

4322 

170E' 

0202 

DO  02023 

CYCLE  07  A/D  ON  MUX  PITCH 

4323 

1710' 

0302 

DO  03023 

CYCLE  08  A/D  START  PULSE, NDX  PITCH 

4324 

1712' 

1212 

DO  12I2H 

CYCLE  09  A/D  ON  MUX  ROLL 
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4335 

1714' 

1313 

Of  1312E 

CYCLE  OA  A/D  START  ?OLSE,!(OX  ROLL 

4336 

1716' 

2333 

DM  3333H 

CYCLE  OB  A/D  OB  SOX  uP  BAT 

4337 

1718' 

3323 

DM  2322H 

CYCLE  OC  A/D  START  PDLSE  BOX  a?  BAT 

4338 

171A' 

3232 

DM  3232H 

CYCLE  OD  A/D  OB  BOX  SYSBAT 

4339 

nic' 

3332 

DM  3332H 

CYCLE  OE  A/D  START  FOLSE  BOX  SYSBAT 

4330 

171E' 

4242 

DM  4242B 

CYCLE  OF  A/D  OB  BOX  A/D  GSD 

4331 

1730' 

4342 

DM  4343B 

CYCLE  10  A/D  START  PLOSE  BOX  A/D  GSD 

4333 

1733' 

5252 

DM  5252B 

CYCLE  11  A/D  OB  BOX  A/D  REF 

4333 

1734' 

5352 

DM  S352B 

CYCLE  12  A/D  START  PULSE  BUX  A/D  REF 

4334 

1736' 

6262 

DM  6262B 

CYCLE  13  A/D  ON  BOX  A/D  +5V 

4335 

1738' 

6362 

DM  6363S 

CYCLE  14  A/D  START  POLSE  BOX  A/D  +5V 

4336 

172A' 

7070 

DM  7070E 

CYCLE  15  A/D  OFF  BOX  TRABSHISSOSETSR 

4337 

4338 

4339 

QRG  (BEL?  +  7808 

4340 

A/D  STORAGE  LOCATIOBS 

4341 

4343 

1780' 

89 

(EULST:  DB  PITCB 

PITCB  (PENDOLUB  1) 

4343 

1781' 

AF 

DB  (BOLL) 

4344 

1783' 

8A 

DB  ROLL 

ROLL  (PEBDDLDB  2) 

4345 

1783  ' 

AF 

DB  (BULL) 

4346 

1784' 

88 

DB  BATTOP 

uP  BATTERY 

4347 

1785’ 

AF 

08  (BOLL) 

4348 

1786' 

8C 

08  3ATTSY 

SYS  BATTERY 

4349 

1787' 

AF 

D8  (BOLL) 

“ 

4350 

1788' 

80 

DB  ADG58 

GSD  51  8  BITS 

4351 

1789' 

3E 

DB  ADGL4 

GBD  LOM  4  BITS 

4353 

178A' 

3F 

DB  AGRB8 

REF  51  8  BITS 

4353 

173B’ 

90 

DB  ADRL4 

REF  LOM  4  BITS 

4354 

173C' 

91 

DB  AD5B8 

+5V  51  3  BITS 

4355 

1730' 

92 

DB  AD5L4 

+5V  LOM  4  BITS 

4356 

4357 

4358 

tlttilttittlttittlittftttttikttlttttittttttlttttftitttktttttitttttttttttkttia 

4359 

4360 

4361 

4363 

4363 

4364 

EBD 

\ 
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SACROS: 

BCI 

BXI 

CALL 

CIO 

DADI  ’ 

mi 

DSAV 

OSBI 

E7Q 

EXIT 

GEC 

IDLE 

RLDI 

RLXA 

RSX 

RSXO 

SPS2 

SRET 

STS 

STPC 

SYX30LS; 

ACSTAT 

0081 

ACSTR 

146A' 

AD5B8 

0091 

AD5L4 

0092 

ADFLG 

0030 

ADGHa 

308D 

A0ai8 

0001 

A0LO4 

0002 

ADXTX 

087?' 

ADTOBS 

30A7 

ADT1L4 

0096 

ADI2a8 

0097 

ADT3L4 

009A 

ADT4B8 

009B 

A0T5L4 

009E 

ADT6B8 

009? 

ADT7L4 

OOAl 

ADT8B8 

OOAl 

ADT9L4 

00A6 

AGAIB 

0063' 

ARIOO 

OOIA 

ARFLG 

OOID 

ASTK 

OOOE 

ASTRBI 

0064 

ATcax 

08B1' 

ATFLG 

OOlS 

3AHGGR 

014F' 

3AT1 

0002 

BATTSY 

008C 

3ATTOP 

0083 

3R1ST 

OllA' 

3R2 

0A7O' 

3R2RTI 

0873  ’ 

SRCaX 

089D' 

3D7FER 

5300 

BDFPG 

0053 

caxi 

3CAD' 

CHKIO 

098D' 

CLEAR 

0924’ 

CLRBOF 

3542  ’ 

CSPARE 

3C9C’ 

CSPASS 

0002 

CHPSRD 

12F0' 

CSPSS 

0084 

CSTRL2 

0005 

CSTRL3 

0007 

CRC 

04A2' 

CRCai 

0006 

CXCSOB 

050E' 

CTA 

03A0' 

CTALO 

006D 

ctase: 

:  0D4E' 

CTAX 

1D3A' 

CT3 

3330  ’ 

CTBLO 

0071 

CTBSET  0D6B' 

CT3X 

0057’ 

s> 

OBCO’ 

cTcai 

OAAO' 

CTCLO 

0075 

PAGE  S 


CIS 

OSH 

LDC 

SCAl 

TCAG 


DACI 

DSKB 

POP 

SCHl 

TRET 


OADC  DADD 
DSKI  DTC 
PPAGE  PDSH 
SCM2  SPMl 

RID  ns 


1456' 

OQOE' 


0093 

009C 

OOAQ 

00A4 

OOlC 

01C8’ 

0065 

001? 

0003 

0000 

0A8D' 


CTCVLO  oon 

CTSDEC  OACl' 
CTRCEK  aA97' 
CYXOOl  0A14' 
D1  0012 
DA2  1593’ 
DATA2  0004 
DSCAI  0907' 
OELAYI  0198' 
DOHE  OOP? 
m  0003 


CTCX  0074' 
CTSETH  0AE2' 
CTRRT5  0876’ 
CYRXOl  0A06' 
DIO  0011 
DA2MOR  159F' 
OATA3  0006 
DBCCn  03C9' 
DLYOO  0031’ 
SHABLE  0771' 
EXP?  12DC’ 


ACUCLR 
ADDR 
ADGL4 
ADRH8  008? 
ADT0L4 
ADT2L4 
ADT4L4 
ADT6L4 
ADT8L4 
AEl 

ASCBEX 
ASTXOO 
ATMFLG 
3AT2 
BIT 

3R2CLR 
BROKE 
CASCST 
CLOOPl 
CLRFIG 
CSPPSR 
CSTCLR 
CSVRT 
CRCLO 
CTACLR 
CTAVai 
CTBCLR 
CTBVHI 
CTCCLR 
CICSBT 
CTRCHK 
CTSSE7 
CYCCST 
CYXIRI 
0100 
3A2YES 
DAYCAR 
DECIEI 
3KA 
ERROR 
EXPJDll 


04CA’ 
0340' 
1312' 
0C47' 
OIBC 
0007 
0D45' 
006E 
0062’ 
0072 
007?' 
0088  ’ 
0AS6' 
0D91' 
0008 
0A22' 
0010 
15B8' 
09A5' 
090C' 
0000 
0080 
OOOF 


AD 

ADDR? 

ADGO 

ADRL4 

ADTiaS 

ADT3H8 

ADT5H8 

ADT7H8 

mm 

ARID 
ASCRDl 
ASTMP 
ATRT5 
3AT3 
30RR01 
3R2CST 
30F9 
CAKERA 
CLS 
CI.XPG 
CSPRTX 
CSTRLl 
COPY 
CRCRAIf 
CTAHI 
CTAYLO 
CTBHI 
CT3YL0 
CTC3I 
CTCVHI 
CTICLR 
CTHSTR 
CYCLES 
CYmi 
DAI 
DATAl 
OAYOP 
DECPPC 
DOLII 
ERRORl 
EXPSET 


133F’ 

flODl’ 

1367' 

0090 

0095 

0099 

009D 

OOAl 

00A5 

0013 

025E' 

527? 

0867’ 

0004 

0912' 

007D 

0020 

0006 

0548’ 

006C' 

0879’ 

0003 

0583' 

0005 

006C 

006? 

■3070 

0073 

0074 

0076 

9DA3' 

OADE' 

0019 

09FA' 

1570’ 

0002 

099C’ 

03171' 

047D’ 

0429’ 

1239’ 
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FLAGA 

0069 

FLAGS 

006A 

FLAGC 

0063 

FLAGCX 

OCIO' 

FORMTl 

0012 

GLOPG 

0050 

GOSUB 

0B60' 

GOTNUH 

OOCF’ 

G? 

5000 

GPAGE 

0007 

GROUP 

0001 

GRPSAY 

OOOA 

GTR9 

02E4' 

HI 

0014 

310 

0013 

HALT 

0006 

HDG 

0085 

HDCIB 

149C' 

HDGIC 

14A4' 

HDG? 

129D' 

RDGAG8 

14BA' 

3DGCHK 

1478' 

3DGEXP 

OOBF 

HDGFLG 

0033 

HDGIN 

14Bir 

HDGPHR 

0005 

HDGRTH 

0888' 

HDGSET 

1273' 

HDGSLO 

148D' 

3DG7AL 

0020 

HDGXT 

14A1’ 

HDSTRT 

0000' 

HEACNG 

0004 

HELP 

1000' 

HEXRDl 

026C' 

HLATCH 

0003 

HODRUP 

097D’ 

3S3IFT 

0004 

3XC0HV 

02D4' 

HZ 

0028 

IDLLOC 

0700' 

msT 

0406' 

IH2HD 

0416’ 

IH4D 

01A9’ 

IH4DT? 

02E9' 

IN4DXI 

013A' 

IHADDR 

03FE’ 

ISCIO 

0953' 

INCBAR 

0181' 

IHCKIN 

0966' 

IHCPPC 

0B13I' 

INCRTC 

092D' 

IHIT 

034C' 

niTB 

0C32' 

IHITC 

0C3F' 

INITS 

0C37' 

INITX 

0C22' 

IHXiD 

0208  ' 

INLF 

0467' 

INPUT 

0556' 

IHTCRl 

F840 

ISTIME 

05AC' 

IITHSX 

F800 

INTPC 

0001 

IHTPC 

OOFS 

IITPGK 

0800' 

IHTPOL 

F840 

INTRPO 

083F' 

ISTSTA 

F800 

IHTVEC 

F880 

lOA 

0006 

lOCLR 

0004 

lOCTEL 

0005 

lOERR 

OOAB' 

lOLOC 

OOFE 

lOSTAT 

0005 

ITS 

022E' 

JHPEXC 

0B66' 

JUHP 

0B28I' 

XSEPl 

056C’ 

.REEP2 

018C' 

REEP3 

157C' 

XEEPT 

Q5B7' 

L2BUF 

OOCO 

Ls: 

0864’ 

LOVRST 

0005 

LIST 

0006 

LNEND 

03EC' 

LSTEST 

03E3' 

LOCX 

0331’ 

LOCXBP 

033D' 

LOOP2 

OBDO' 

LOOPIX 

3CB9' 

LP20TH 

OCFF' 

LP21ST 

ODir 

LP2EER 

0D26' 

LPRNTH 

0CE4' 

LP20FF 

0CC9' 

LP20H 

OCDl' 

LP2XIT 

0D2D' 

LPRXMT 

0CD9' 

HI 

0016 

HIO 

0015 

HATCH 

021E’ 

NATCH2 

0245' 

HATCH! 

0C88' 

HATCH? 

0219' 

KDQNE 

07SF’ 

XSMCHG 

0738' 

HEHLST 

1780' 

HEHORY 

0007 

HEHPTR 

OOAE 

MENSA7 

0734' 

HEHSU3 

07B2’ 

HODFLG 

032D' 

HUX 

0C02 

.mLST 

1700' 

HOXPTR 

OOAD 

SEXBYT 

03C2' 

XEXTl 

OlAD' 

HEXT2 

0234' 

SEXT3 

0251’ 

3EXTPG 

07C1’ 

NOBRRH 

0914' 

HOLOCX 

0324' 

XOHTCH 

0CA7' 

HOOP 

0BC4' 

NOTEK 

15CE' 

NOTHEX 

OlEB' 

lOYRTH 

0392' 

HULL 

OOAF 

NUHBER 

01E3' 

0XRT5 

038S' 

OPE! 

0358  ' 

OPEH? 

0348' 

OUTADR 

03AF' 

OUTASC 

02CF' 

OUTCA 

0295' 

OUTCHR 

0300' 

OUTBEX 

0271' 

OUTPTl 

0201' 

OOTPT2 

0262' 

PASSBR 

163E’ 

PASSCA 

045E’ 

PASSGR 

0171' 

PC 

0003 

PCSAKE 

0650' 

ruCiiR 

1«35' 

PDCLR 

1440' 

PDEC 

1658  ' 

PDRTH 

0885' 

PDSTAT 

0083 

PDSTR 

145F' 

PIHC 

161F' 

PING 

0007 

PITCH 

0089 

PLEVEL 

0002 

PlIST 

020F' 

PHODE 

160A' 

PHODEX 

158E' 

PMPSPD 

0006 

PMT2 

15E2' 

PMTCHR 

003A 

POP 

0340' 

POPl 

0B44' 

PORTS 

0007 

POUND? 

00C8' 

PPC 

OOOC 

PPCCSP 

0727' 

PPCCHT 

'0068 

PPCHI 

0060 

PPCLO 

0061 

PPCSHO 

0704' 

PROHPT 

0107' 

PSETOO 

14E8' 

PTEC7 

0779' 

PTHRU 

1540' 

PULCHE 

14CA' 

PULCNT 

0041 

PULFLG 

0040 

PULXUI 

0042 

PULRTl 

088B' 

PULXT 

14FD' 

PUHPl 

0086 
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?as?2 

0087 

POSH 

0B30’ 

gUEBOF 

1178' 

QGSSGR 

0133’ 

RASDRR 

1564’ 

RBHI 

0008 

RSSAVE 

0854’ 

SEADDR 

00B7’ 

REPORT 

3713’ 

RE5TR0 

0818’ 

REV 

0033 

ROLL 

008A 

RSTRHI 

0062 

RSTXLO 

0063 

RTCRTN 

086A' 

RTNPTR 

0006 

3AVPPC 

OCOOI' 

SAYCLR 

34F5’ 

SDLNGT 

0029 

SQREC 

0EF3’ 

SECl 

0018 

SECIO 

0017 

ssg? 

0634' 

SEQ7SR 

06aS’ 

3EQNCR 

OBOO' 

SEQRAT 

0067 

SE5SST 

0602' 

SEQXTl 

03E0’ 

SETAT 

094F' 

SSTCLR 

0C14I' 

SEIPG 

onB’ 

SETPPC 

0622’ 

SETSTE 

OfllE' 

SETTOP 

0554  ’ 

SHFTD4 

OlEF’ 

SHIFT 

01F4’ 

START! 

0025’ 

START2 

05A6' 

STAT3 

0007 

STRCLR 

3C59' 

STRFG 

0053 

STORE 

02DD’ 

SVRD 

131A’ 

31RTS 

087C’ 

SYSTEM 

0007 

TEST 

023C’ 

TESTS 

0944' 

TESTSfl 

025A’ 

TEST90 

029E' 

TESTAl 

0211’ 

TSSTCR 

0454' 

TSSTDB 

33A8’ 

TESTY 

0380’ 

T5RE7 

0306’ 

TINEIS 

0582' 

TINEJM 

357B’ 

TLISIT 

0006 

TR 

13BA’ 

TRCYIS 

140A' 

TRCY19 

1418’ 

TSRET 

02F0' 

TST2ND 

09C1' 

TTY 

024E' 

ITY2 

0A32’ 

TY2BTX 

0A5C' 

TY200T 

0A47’ 

U8ADDR 

00B4’ 

08L0CR 

0315’ 

VAITl 

05CE' 

RA1T2 

05F7' 

NAIT6 

1587’ 

HRITEN 

03r5’ 

«TILL 

0B70’ 

X 

0003 

XSTLF2 

167B’ 

XPQS 

3093 

XYZIS 

152C’ 

XYZOR 

1525’ 

YZ 

3004 

YZPOS 

0094 

PUSHOO 

0C77' 

PUSHl 

0B34’ 

QUESTS 

0396’ 

QuESTT 

fl5C2' 

RBLO 

0009 

RBRET 

0852’ 

RECFLG 

0032 

RELAYS 

0007 

RESTRT 

003F’ 

RETURN 

0BS8’ 

RPLY 

OOEC’ 

RSTX 

GOOD 

RSTXT? 

523F 

RTC 

0900’ 

RTTY2 

OOOF 

SAVE 

OB14I 

SAYNQ 

0352’ 

S2 

ODAD’ 

SDRSQ 

0003 

SDRET 

0891' 

SEKI? 

0449’ 

SEQOl 

09EE' 

SEQCYC 

39CA* 

SEQFAS 

0066 

SEQRST 

0073' 

SSQRTS 

0862’ 

SET25D 

0678’ 

SETAC 

OCIC’ 

SETFLG 

0327’ 

SETPC 

0832' 

SETQ 

07E2' 

SETSL 

0019' 

SETUP 

0Q5A' 

SETURT 

0048’ 

SSTXPG 

0052 

STACK 

0002 

STATl 

0003 

STAT2 

0005 

mm 

533F 

STXSRR 

0C98’ 

SNITCH 

0002 

SNFNR 

1337  ’ 

SNSTAT 

0082 

SYSFLG 

0003 

TESTS 

0472* 

TESTO 

0919’ 

TEST81 

0268' 

TESTED 

0288' 

TESTA2 

02Cr 

lESTCA 

0291’ 

TESTOX 

036F' 

TESTS? 

0437' 

TIKEOl 

003C 

TISE02 

OOFO 

TISEST 

0535’ 

TLE7EL 

005A 

TRCY02 

13EF’ 

TRCYll 

13!?' 

TRFLG 

GOBI 

TRRTS 

0882' 

TSTADV 

09B4' 

TSTNEX 

091C' 

TTY21I 

007E 

TTY2LO 

OOTF 

TY2RTI 

0870’ 

UARTS 

0006 

VERS 

0035 

NAIT 

0034’ 

NAITl 

0192’ 

NAIT4 

02F1’ 

NTFOR 

0B80' 

NTFORX 

3C6?’ 

XSTBR2 

169F’ 

XSTETX 

15F3' 

XYZcax 

1500  ’ 

XYZFLG 

0084 

XYZRTN 

083E' 

XY2XT 

1522’ 

NO  FATAL  EIROKIS) 


iCSTAI 

594 

3801 

3823 

ACSTR 

38191 

ACUCLR 

37984 

AD 

1819 

35834 

A0598 

594 

4354 

AD5L4 

594 

3596 

4355 

ADDR 

296 

3034 

ADDR? 

284 

2904 

ADFLG 

594 

3588 

ADGH8 

594 

4350 

ADGL4 

594 

4351 

ADGQ 

3592 

36124 

AOHI3 

594 

3665 

3764 

ADL04 

594 

3669 

3766 

ADR18 

594 

4352 

ADRL4 

594 

4353 

ADRT5 

18204 

3587 

3610 

ADT0H8 

594 

3754 

A3T0L4 

594 

3709 

ADT1H8 

594 

3715 

3758 

ADT1L4 

594 

ADT2B8 

594 

A072L4 

594 

ADT3H8 

594 

ADT3L4 

594 

ADT4E8 

594 

AD;4L4 

594 

ADT5B8 

594 

ADT5L4 

594 

ADT6fi3 

594 

ADT6L4 

594 

ADT7B8 

594 

ADT7L4 

594 

ADT8B8 

594 

ADT8L4 

594 

ADT9B8 

594 

ADT9L4 

594 

AGAII 

1784 

183 

187 

ARl 

594 

ARID 

594 

ARIOO 

594 

ARFLG 

594 

130 

1882 

ASCBEX 

498 

5064 

995 

ASCRDl 

6374 

ASTI 

594 

2255 

2257 

2513 

2523 

2526 

ASTRBI 

594 

1473 

ASTXLQ 

594 

2390 

3630  3651  3656  3675 


1906  2003 

1004 

2233  2235  2296  2393 

2523  2540  2554  2603 


2395  2480  2484  2505 

2604  2609  2641  2643 


2507 

2659 


iSTXT? 

59t 

204 

207 

ATCHK 

1809 

1861* 

ATFLC 

591 

1929 

ATNFLG 

591 

ATSTH 

1810} 

1865 

1874 

3ANGGS 

362 

402* 

BATl 

591 

3AT2 

591 

BAT3 

591 

BATTSY 

591 

4348 

3ATT0? 

591 

4346 

3CI 

42t 

3LT 

59* 

BORROK 

1394* 

3R1ST 

350 

356* 

3R2 

1814 

2140* 

BR3CLR 

2149* 

BR2CHT 

59* 

2140 

4301 

BR2RT1 

1815* 

2144 

2148 

BRC3R 

1843* 

BROKE 

1349 

1852* 

3079 

59* 

1222 

BUFFER 

59* 

2792 

3302 

BUFPG 

59* 

59 

175 

3X1 

42* 

CALL 

42* 

CAUCST 

59* 

CAMERA 

59* 

CHXl 

2543 

2549* 

CHKIO 

1974* 

CID 

42* 

CIE 

42* 

CLOOPl 

1128* 

1138 

1140 

CLR 

1225* 

1232 

CLRAR 

1906* 

2012 

CLRBOF 

1218 

1220* 

CLRFLG 

329* 

CLRPG 

182 

184* 

CSPARB 

2342 

2522 

2535* 

CMPASS 

59* 

3532 

3537 

CSPPIR 

3521 

3534* 

CMPRTM 

1818* 

3517 

3523 

CMP5R0 

1817 

3512* 

CMFSS 

59* 

3528 

CnCLR 

2444 

2455 

2461* 

CSTRLl 

59* 

150 

cnRL2 

59* 

153 

2152 

CHTRL3 

59* 

cm? 

491 

496* 

2483 


2156 


1654 


3532 


4299 


3539 


COPY 

1269 

1272* 

CPC 

334 

1101* 

CRCHI 

599 

CXCLO 

59* 

1121 

CXCRAK 

59* 

CRCSUB 

1135 

1169* 

CTA 

2352* 

CTACLR 

2672 

2677* 

CTAHI 

59* 

2173 

2638 

CTALO 

59* 

2465 

2631 

CTASET 

2674 

2634* 

CTAVHI 

59* 

2174 

CTAVLO 

59* 

C7AX 

2352 

2670* 

C7B 

2356* 

CTBCLR 

2696 

2701* 

CTBHI 

59* 

2179 

2712 

CT31Q 

59* 

2469 

2705 

CTBSET 

2693 

2703* 

C7BVHI 

59* 

2130 

CTBVLO 

59* 

CTBX 

2356 

2694* 

C7C 

2360* 

C7CCLE 

2720 

2725* 

c:c3i 

59* 

2135 

2736 

CTCHJ 

2169* 

CTCLO 

59* 

2473 

2729 

CTCSET 

2722 

2732* 

CTCVHI 

59* 

2136 

CTCYLO 

59* 

CTCX 

2360 

2713* 

CTSCHE 

2172 

2173 

2134 

2191* 

ViaWtiJv 

2464 

2463 

2472 

2630 

2704 

2728 

2765* 

CTSDEC 

2197 

2201* 

CTSITH 

2199 

2223 

2230* 

CTHSET 

2637 

2711 

2735 

2742* 

CTHSTR 

2203 

2205 

2225* 

CTRCHE 

1315 

2163* 

CTRRTS 

1817* 

2167 

2133 

CYCCHT 

59* 

1383 

1396 

1897 

1900 

1903 

1304 

CYCLES 

59* 

1911 

2040 

2047 

2054 

2062 

2073 

3647 

3719 

3778 

3855 

3934 

CYXOOl 

2036 

2062* 

CYXXOl 

2034 

2033 

2054* 

CYXXII 

2026 

2070* 

cYxni 

2032 

2047* 

01  591 

OlO  59»  2337 

DlOO  59t 


3547 


T  r  «  ^ 

;oi^ 


DAI 

40654 

4095 

4110 

4165 

jA2 

4068 

4072 

40904 

4205 

DA25IOR 

40974 

4105 

4137 

mm 

4092 

4099 

41124 

DACI  42f 
DADC  421 
DADS  42t 
DADI  42t 


DATAl 

594 

450 

455 

761 

769 

786 

1305 

1310 

1869 

4071 

4077 

4134 

4147 

4153 

DA7A2 

594 

2106 

2103 

2126 

2154 

4057 

4120 

4265 

4268 

4277 

DATAl 

594 

DAYCAR 

19924 

2001 

DAYUP 

1973 

19854 

33SZ 

424 

DECAR 

18874 

2015 

DECCST 

942 

9454 

DECHEZ 

18904 

1898 

DECPPC 

22664 

DELAY2 

311 

460 

4664 

768 

358 

922 

1015 

1313 

4048 

4051 

4054 

4275 

DIY20 

1244 

DSA 

594 

2791 

2310 

2811 

2319 

2820 

2829 

2830 

2838 

2839 

2847 

2850 

2854 

2855 

2857 

2858 

2866 

2867 

2870 

2871 

2874 

2815 

2818 

2819 

2882 

2883 

2836 

2887 

2890 

2891 

2894 

2395 

2898 

2899 

2902 

2903 

2906 

2901 

2913 

2911 

2914 

2915 

2913 

2922 

2923 

2929 

2936 

2937 

2943 

2948 

2949 

2954 

2955 

2961 

2965 

2966 

2968 

2969 

2974 

2975 

2981 

2988 

2989 

2995 

2999 

3000 

3003 

3004 

3010 

3017 

3018 

3024 

3023 

3029 

3032 

3033 

3039 

3046 

3047 

3053 

3057 

3058 

3063 

3064 

3070 

3077 

3078 

3084 

3088 

3089 

3092 

3093 

3099 

3106 

310- 

3113 

3117 

3124 

SOLIS 

10634 

DOES 

594 

295 

329 

346 

371 

395 

423 

439 

637 

802 

845 

380 

935 

1020 

1080 

1120 

1154 

1165 

1217 

1323 

1345 

1413 

1433 

1444 

1472 

1487 

1528 

1565 

1577 

1608 

3275 

3423 

3442 

3467 

3483 

3505  4181 

DSA7  421 

DSS:  424 

DSN  421 

SSXB  424 

DSNI  42» 

OTC  424 

EUSLE  1576  15304 

ERROR  584  2622  2649  2863 

ERRORl  1005  10134  1039 

STQ  424 

E7X  594  345  379  1107  1113  1398  1432  1564  1595  1604 

EXIT  424 

EXP?  394  34944 

EXFXQK  594  2801  3485  3494 


iXPSE: 

422 

3473* 

FLAGA 

591 

FLAGB 

591 

FLAGC 

591 

FLAGCX 

2407» 

FORNTl 

59!f 

151 

154  2153 

4300 

GEC 

421 

GLC?G 

59* 

59 

140  171 

135 

GOSUB 

2318* 

GOTSUM 

278 

284* 

G?  591 


59* 

131 

133 

141 

144 

146 

XI  < 

172 

191 

193 

194 

196 

197 

199 

200 

202 

203 

205 

206 

208 

227 

229 

249 

250 

259 

260 

265 

304 

305 

307 

453 

454 

457 

437 

506 

509 

512 

515 

513 

521 

523 

547 

572 

599 

627 

638 

660 

567 

710 

720 

728 

731 

734 

736 

783 

785 

137 

809 

313 

312 

831 

832 

833 

977 

973 

991 

997 

1022 

1046 

1052 

1063 

1064 

1122 

1125 

1126 

1127 

1143 

1145 

1169 

1172 

1173 

1179 

1187 

• 

XXA  J 

1240 

1243 

1264 

1273 

1274 

1275 

1280 

1283 

1285 

1289 

1303 

1309 

1312 

1325 

1326 

1328 

1331 

1351 

1352 

1378 

1383 

1384 

1336 

1450 

1474 

1475 

1477 

1520 

1631 

1633 

1634 

1675 

1678 

1679 

1730 

1732 

1733 

1738 

1793 

1300 

1801 

1803 

1835 

1837 

1338 

1340 

1362 

1353 

1371 

1873 

1384 

1385 

1890 

1891 

1895 

1901 

1907 

1909 

1912 

1913 

1915 

1919 

1921 

1923 

1926 

1930 

1931 

1934 

1936 

1937 

1939 

1944 

1946 

1950 

1952 

1954 

1959 

1961 

1966 

1971 

1974 

1975 

1980 

393: 

1986 

1987 

1989 

1992 

1994 

2004 

2005 

2009 

2014 

2021 

2022 

aOaw 

2041 

2042 

2048 

2049 

2055 

2056 

2063 

2064 

2070 

2074 

2075 

20S5 

2086 

2038 

2091 

2109 

2131 

2141 

2142 

2145 

2147 

2164 

2165 

2132 

2193 

2206 

2210 

2214 

2215 

2219 

2225 

2245 

2246 

2248 

2250 

ilit  *  it 

2254 

2256 

2338 

2391 

2392 

2404 

2419 

2426 

24«6 

2487 

2503 

•  5 

A  J  X  W 

2535 

2545 

2549 

2588 

2539 

2595 

2596 

2614 

2623 

2624 

2626 

26j« 

2635 

2637 

2638 

2640 

2650 

2651 

2653 

2661 

2663 

2744 

2747 

27  43 

2750 

2751 

2753 

2754 

2756 

2766 

2767 

2782 

2733 

2735 

2786 

2802 

2303 

2812 

2821 

2331 

2340 

2852 

2864 

2921 

2924 

2930 

2933 

2945 

2953 

2956 

2962 

2967 

2973 

2976 

2982 

2990 

2996 

3002 

3005 

3011 

3019 

3025 

3031 

3034 

3040 

3048 

3054 

3062 

3065 

3071 

3079 

305  5 

3091 

3094 

3100 

3108 

3114 

3126 

3127 

3131 

3290 

3292 

3296 

329' 

3445 

3447 

3455 

3486 

3438 

3496 

3513 

3514 

3513 

3519 

3529 

3:30 

3548 

3549 

3559 

3560 

3584 

3585 

3589 

3590 

3595 

3597 

3598 

3609 

3613 

3614 

3617 

3619 

3620 

3622 

3624 

3625 

3636 

3637 

3645 

3645 

3649 

3653 

3659 

3660 

3663 

3664 

3668 

3672 

3674 

3583 

3634 

3689 

3690 

3695 

3696 

3705 

3707 

3710 

3711 

3714 

3720 

3721 

3750 

3751 

3756 

3759 

3763 

3779 

3780 

3785 

3786 

3794 

3796 

3802 

3804 

3811 

3814 

3816 

3824 

3827 

3829 

3839 

3840 

3848 

3850 

3851 

3856 

3857 

3908 

3909 

3921 

3922 

3925 

3926 

3929 

3933 

3934 

3935 

3938 

3946 

3947 

3948 

3950 

3953 

3955 

3959 

3967 

3968 

3978 

3980 

3981 

3985 

3986 

4003 

4005 

4008 

4009 

4026 

4028 

4029 

4034 

4036 

4037 

4041 

4043 

4059 

4061 

4075 

4076 

4079 

4118 

4119 

4122 

4133 

4135 

4157 

4159 

4186 

4187 

4189 

4191 

4193 

4199 

4201 

4209 

4211 

4216 

4213 

•r 


’-rw^ 


1 

1 


4219 

4224 

4225 

4227 

4233 

4234 

4261 

4262 

4266 

4276 

4279 

4293 

JXOUP 

59» 

148 

1635 

1680 

1734 

1344 

2617 

3135 

3526 

3535 

3556 

3564 

3761 

3768 

3791 

3799 

3807 

3820 

4001 

4013 

4030 

4038 

4220 

4228 

GXPSkV 

594 

143 

1630 

1575 

1731 

4025 

g:x9 

733 

7434 

il 

594 

910 

594 

2502 

34LT 

594 

HDG 

594 

3907 

H0G13 

3342 

3859 

33654 

aoGic 

3561 

38734 

9DC? 

392 

34534 

9DGAGH 

35994 

3905 

HDCCHK 

1823 

38334 

HDGEXP 

594 

226 

3444 

3453 

5DG?LG 

594 

3833 

asGis 

3376 

38904 

3DG?iR 

594 

3DGXTS 

13244 

3870 

aOGSiT 

420 

34304 

auCSLO 

3355# 

9DGVAL 

Is# 

228 

HDGXT 

3853 

3862 

33704 

3883 

nOSTRT 

334 

1495 

1690 

3147 

aEADKG 

594 

3910 

i'L? 

366 

2377 

31524 

4312 

4339 

5EXRD1 

6484 

HLATCH 

594 

3893 

HOGRu? 

13644 

5S3I;T 

594 

3899 

axcflsv 

663 

670 

713 

723 

7314 

3X 

594 

1916 

IDLE 

424 

lOuuGC 

132 

135 

1373 

1375 

14994 

1500 

iris: 

9884 

992 

1012 

1024 

1030 

IR2SD 

9994 

:s40 

4314 

753 

903 

913 

983 

1070 

:N4C7? 

694 

7504 

1540X7 

489 

4924 

I3A0DR 

9814 

1036 

IJCIO 

1925 

19424 

IIC3AR 

282 

4454 

447 

451 

486 

561 

IICHIH 

19494 

15CPPC 

22634 

2314 

2343 

2364 

2439 

2450 

2699 

2706 

2723 

2730 

ISCRTC 

1886 

19114 

2010 

4237 

4239 

4241 

4243 

4249 

4251 

4295 

4296 

4302 

4304 

1367 

2099 

2115 

2150 

2574 

2581 

3571 

3633 

3700 

3724 

3732 

3740 

3866 

3879 

■891 

3931 

3943 

3994 

4297 

4215  4292 


593 

887 

990 

I'OOl 

1045 

1051 

2456 

2529 

2578 

2585 

2675 

2632 

IHIT 

23041 

IHITB 

2436 

24414 

INITC 

2433 

24524 

ISI7S 

2434 

24464 

IJITX 

2304 

24324 

IJlKiD 

293 

5534 

579 

799 

IHLF 

10494 

1054 

I3PU7 

12354 

1245 

1247 

1256 

IHTCRL 

594 

217 

I57ISB 

1238 

13004 

1302 

1306 

IJITSSK 

594 

213 

INTPC 

594 

137 

139 

.843 

2616 

3134 

3525 

3534 

3798 

3806 

3819 

3865 

INTPG 

594 

59 

59 

59 

INTPGM 

223 

17074 

1877 

2233 

INTPOL 

594 

IJTRPO 

1707 

17674 

IHTSTA 

594 

ISTVEC 

594 

136 

138 

221 

lOA 

594 

IQCLR 

594 

IQC:SL 

594 

lOESR 

2444 

459 

779 

4081 

lOLOC 

594 

248 

452 

626 

4248 

4260 

lOSTAT 

594 

IT3 

358 

330 

404 

432 

JMPEXC 

2276 

23244 

JUMP 

22754 

AEEPl 

12484 

1EEP2 

449 

4524 

EEEP3 

4070 

40744 

EZEPT 

1304 

13074 

L2BUF 

594 

L3T 

13094 

LDC 

424 

LDVRS7 

594 

LIST 

594 

563 

566 

567 

1627 

2191 

2209 

2228 

LBEID 

962 

964 

9674 

'uSTES: 

952 

9614 

LOCA 

406 

3204 

LOCKUP 

325 

3274 

LOOP2 

23724 

LOOP2X 

2372 

25644 

LP20TH 

2590 

26134 

LP21S7 

2592 

26304 

LP2EXR 

2606 

26494 

322  842  1215 


1366 

2093 

2114 

2149 

2260 

2407 

2573 

2530 

3555 

3563 

3570 

3632 

3681 

3760 

3767 

3790 

3878 

3890 

3930 

3942 

3993 

4000 

4012 

59 

59 

211 

1653 

1763 


4129 

4142 

4153 

784 

1307 

4053  4074  4117  4190  4198 

4240 

5954 

1572 

4172 

576  577  580  600  609  610  1623  1:15 

2743  2765 


LP2NTH 

25944 

1P20FF 

2566 

25734 

LP20N 

2568 

25804 

LP2XIT 

2571 

2602 

26564 

LP2XNT 

2570 

25874 

Ml 

594 

SIO 

594 

HATCH 

5764 

MATC82 

608 

6124 

HATCH3 

2512 

25134 

HATCH? 

562 

5724 

HOOMS 

1639 

16754 

HEHCHG 

1616 

16304 

HEMLST 

3621 

43424 

HEHORF 

594 

1665 

HEMPTR 

594 

3653 

3671 

KEHSAV 

368 

15514 

HEHEOB 

114 

16234 

HODFLG 

3124 

334 

HOX 

594 

3642 

3643 

HUXLST 

3618 

3639 

43154 

HUXPTl! 

594 

3616 

3635 

HEXHTT 

9414 

954 

959 

HEXTl 

4844 

499 

503 

XEXT2 

6004 

611 

XEXT3 

6234 

644 

671 

SEXTPG 

16384 

1673 

NOHHEH 

1393 

13954 

SOLOCX 

803 

3054 

HOHTCH 

25444 

2552 

HOOF 

23644 

SOTETX 

41264 

j2 

HOTHEX 

508 

514 

517 

HOYRTH 

890 

3944 

HULL 

594 

4343 

4345 

HUMBER 

511 

5214 

OXRTH 

3914 

0PE3 

346 

3484 

OPEH? 

410 

8404 

OUTADR 

9234 

971 

OUTASC 

717 

7264 

OUTCA 

6334 

OUTCHR 

643 

739 

7774 

flUTSiX 

6534 

679 

OUVPTl 

701 

7284 

OUrPT2 

6414 

729 

PASSBR 

436 

438 

4094 

PASSCA 

1029 

1035 

10434 

PASSGR 

370 

4304 

3734  3742  3744  3770 

5E8  695  714  724 


5271 

4347  4349 


782 

4101  4113  4178  42084  4236 

1048 


4283 


PC 

599 

100 

102 

108 

149 

159 

1259 

1292 

1319 

1353 

1855 

4031 

4146 

4221 

4298 

PCSAME 

1405 

14259 

PDCHR 

1822 

31189 

PDCLR 

31901 

PDEC 

4180 

42329 

PDRI5 

13239 

3182 

3832 

PDSTAT 

599 

3193 

3810 

POSTS 

3188 

33069 

PIHC 

4114 

41859 

PISG 

599 

3826 

PITCH 

599 

4342 

PLEVEL 

599 

4040 

4185 

4208 

4232 

PLIST 

5639 

565 

515 

PMODE 

4083 

41699 

PMODE! 

40849 

4132 

PMPSPD 

599 

PKT2 

4124 

41399 

4145 

PMTCHR 

599 

344 

4148 

POP 

429 

22939 

POPl 

22969 

2300 

PORTE 

599 

PODSD? 

2199 

283 

PPAGE 

429 

2284 

2293 

PPC 

599 

2241 

2249 

2258 

2263 

2266 

2215 

2280 

2310 

2313 

2318 

2320 

2322 

2324 

2326 

2321 

2329 

2334 

a  i0  V 

2432 

2499 

2564 

2633 

2636 

2639 

2644 

2645 

2656 

255- 

2655 

2694 

2118 

2142 

2145 

PPCCHP 

15359 

1544 

PPCCHT 

599 

2218 

2485 

2581 

2660 

PPCBI 

599 

190 

1311 

1452 

1513 

2244 

2851 

PPCLO 

599 

2213 

PPC3H0 

413 

15119 

965 

1021 

PROSPT 

330 

3369 

312 

396 

424 

440 

813 

865 

944 

1084 

1155 

1166 

1219 

1356 

1389 

1438 

1482 

1518 

1611 

3216 

3448 

3468 

3489 

3506 

4229 

PSETOO 

3924 

3921 

39429 

PTECT 

1514 

15859 

PTHRU 

434 

40259 

PULCHR 

1824 

39209 

PULCHT 

599 

PULPLG 

599 

3920 

paLIDM 

599 

3945 

PULRTI 

18269 

3960 

PULXI 

3940 

39609 

PUMPl  591 

PCIfP2  591 

PUSH  2280t 

PUSHOO  25051  2520 


2312 

2420 

2610 


1041 

3425 


\ 


?USH1  22331  2239 

QUSBUF  390  3281j( 

QUiSGB  360  37  OK 

QUESTS  382  90U 

QUEST!  336  13198 

HADCR2  40568  4176 

RB5I  598  1799  1834 

RBLO  598 

R3RET  17998 

JBSAVE  18338 


READDR 

252 

2578 

RECFOG 

598 

3125 

RELAYS 

598 

2576 

2533 

2619 

3566 

3573 

3702 

3726 

3313 

3363 

3881 

3939 

3951 

3996 

4015 

4032 

4222 

REPORT 

15138 

1539 

1543 

RESTRO 

17298 

1350 

RESTS! 

1368 

1852 

1854 

RETURN 

23088 

RET 

58 

96 

328 

3164 

RLOI 

428 

2790 

3300 

3895 

RLXA 

428 

2089 

2194 

2211 

2597 

m 

428 

ROLL 

598 

4344 

RPLY 

312 

3138 

RSTS 

598 

2251 

2253 

2308 

2309 

2311 

2319 

2397 

2399 

2479 

2432 

RSTEHI 

598 

RSTSLO 

598 

RSTETP 

598 

198 

201 

2481 

RSXD 

428 

2110 

2132 

2207 

2216 

2226 

RTC 

1310 

13328 

RTCSTH 

18118 

1902 

1910 

RTHPTS 

598 

573 

581 

583 

584 

586 

Rm2 

598 

2090 

2092 

2107 

2111 

2130 

2133 

SATE 

22648 

2267 

2287 

2298 

2330 

2344 

2427 

2514 

2527 

SATPPC 

2264 

23908 

2610 

2627 

2646 

2664 

2639 

2713 

2737 

SATCLR 

1142 

11568 

SAYSO 

304 

826 

347 

3558 

930 

1067 

SCAL 

428 

112 

119 

230 

291 

309 

318 

337 

340 

347 

356 

378 

402 

430 

484 

496 

500 

559 

596 

641 

661 

668 

683 

692 

711 

721 

737 

750 

766 

797 

320 

840 

356 

359 

371 

374 

382 

385 

901 

903 

920 

928 

946 

955 

967 

931 

388 

993 

999 

1002 

1006 

1013 

1016 

1027 

1033 

1043 

1049 

1068 

1075 

1081 

1101 

1113 

1133 

1147 

1156 

1213 

1236 

1319 

1333 

1361 

1369 

1392 

1408 

1414 

1425 

1434 

1440 

1454 

148j 

1511 

1523 

1551 

1567 

1570 

1583 

1599 

1614 

2170 

2176 

2182 

2340 

2442 

2447 

2453 

2462 

2466 

2470 

2509 

2678 

2685 

2702 

2709 

2726 

2733 

3152 

3281 

3305 

3450 

3458 

3473 

3499 

3874 

4046 

4049 

4052 

4062 

4085 

4107 

4162 

4170 

4195 

4202 

4245 

4252 

4273 

SCSI  428 


SCX2  42t 

SD  1323  2731f 

SDLNGT  593  3133 

SDREC  3129  3134t 

SDRSQ  59»  3137 


SDRET 

18298 

2784 

2788 

3132 

3139 

SECl 

598 

1324 

2781 

3289 

3512 

SECIO 

598 

SEMI? 

1026 

10318 

SEQOl 

2023 

20408 

2079 

SEQ? 

338 

14508 

SSQ7EX 

14798 

1488 

ssQcrc 

1811 

20208 

SEQFiS 

598 

SEQHCR 

2030 

2044 

2051 

2059 

2067 

2317 

2333 

2347 

2351 

2355 

SEQRil 

598 

2020 

SEQRST 

186 

1908 

SEQRTl 

18138 

2045 

2052 

2060 

2068 

SEQSET 

416 

13618 

1445 

SEQXTl 

23778 

SET2SD 

1417 

1437 

14408 

SETiC 

2422 

24258 

SETAT 

19338 

SETCLR 

24198 

SETFLG 

3078 

350 

SETPC 

1372 

13928 

SETPC 

1584 

15888 

SETPPC 

13778 

1423 

SETQ 

1643 

1647 

1651 

1655 

1659 

3STSL 

86 

998 

SETSTE 

1048 

1356 

se::o? 

12338 

1255 

SETUP 

121 

1718 

SETORT 

1438 

SHFTD4 

502 

5328 

1008 

SHIFT 

5368 

544 

SPMl 

428 

SPN2 

428 

SRET 

428 

236 

474 

492 

525 

740 

770 

790 

392 

395 

2547 

2556 

2758 

2772 

3913 

SSTRPG 

598 

59 

59 

1646 

2478 

STAGE 

598 

105 

107 

111 

235 

533 

545 

551 

558 

568 

618 

649 

653 

654 

655 

807 

828 

829 

849 

355 

937 

939 

1085 

1132 

1205 

1267 

1270 

1281 

1522 

1681 

3583  3688  3734  3849  3979 


2078  22448  2274  2279  2292  2303  2307 

2359  2363  2367  2371  2376  2384 


1661  16648 


528 

552 

569 

588 

604 

619 

632 

1055 

1095 

1206 

1682 

2231 

2474 

2493 

4284 

4306 

244 

277 

279 

290 

308 

336 

473 

582 

585 

587 

595 

603 

613 

616 

664 

665 

677 

760 

780 

789 

306 

870 

881 

915 

916 

918 

923 

936 

1223 

1230 

1233 

1235 

1239 

1253 

1262 

1735 

1736 

1767 

1769 

1833 

1846 

1883 

2101 

2117 

2122 

2169 

2230 

2339 

2441 

2446 

2452 

2492 

2503 

2546 

2555 

2677 

2634 

2701 

2708 

2725 

2732 

2757 

2771 

3812 

3825 

3873 

3912 

4045 

4056 

4065 

4034 

4106 

4126 

4130 

4139 

4143 

4150 

4154 

4161 

4169 

4194 

4244 

4267 

4283 

4305 

STARTl 

101 

1114 

START2 

12924 

STATl 

594 

445 

762 

777 

1300 

1847 

4066 

4127 

4140 

4151 

STAT2 

594 

2102 

2118 

2123 

4090 

4097 

4269 

STAT]  591 

STKLR  3449  24734 

STKIHD  591  106  376 

SUERR  2524  23264 

STKPG  594  59  104  1650 

STS  424 

STORE  7364  744 

STPC  424 

SSITCH  594  3561 

S»P»R  3551  35704 

SVED  1618  35474 

SRRTN  18194  3553  3568  3575 

SSSTAT  594  3558 

SYSFLC  594  258  303  808  330  976  1062  1361  1935 

STSTES  594  1632 

TCAL  424 


TEST 

602 

6068 

TESTS 

364 

10628 

TESTO 

18991 

TESTS 

19261 

TEST30 

630 

6358 

7SST81 

636 

6468 

TEST8D 

647 

6748 

ISST9D 

632 

6908 

TESTAl 

698 

7038 

TSSTA2 

704 

7168 

TESTCA 

675 

6818 

TESTCR 

1032 

10338 

TESTDD 

691 

6978 

TESTOR 

8708 

1083 

1416 

TESTS? 

996 

10228 

TESTY 

3814 

1371 

1436 

TSRE? 

7808 

TISEOl 

598 

TISE02 

598 

7ISEII 

12658 

1278 

TISEJS 

1242 

12598 

TISEST 

414 

12138 

TLEVEL 

598 

TLISIT 

598 

TR 

1820 

36818 

TSa02 

3666 

37194 

:Hcyi7 

3723 

37304 

TitCYlS 

3731 

37334 

TRCnS 

3739 

37484 

TRET 

424 

TRFIG 

594 

3632 

3704 

TRRTH 

13224 

3693 

3698 

3717 

3728 

TSRE? 

339 

349 

752 

7604 

873 

TST2SD 

2007 

20114 

TSTiDV 

1917 

1923 

1932 

1940 

1943 

TSTNEX 

19014 

1905 

TTY 

320 

342 

8284 

835 

361 

1103 

1115 

1149 

1158 

1321 

1485 

1513 

1525 

1553 

1590 

3501 

T7Y2 

1813 

20844 

TTY2HI 

594 

2084 

2594 

2634 

TTY2L0 

594 

TY2ETX 

2096 

21144 

TY200T 

20934 

TY2RTS 

18144 

2087 

2094 

2105 

2112 

oms 

594 

145 

1677 

1845 

1368 

uSMDR 

162 

2554 

297 

1295 

■MOCl 

408 

7974 

7SXS 

44 

94 

326 

3152 

iXIT 

1264 

128 

SXITl 

13264 

1327 

«iIT2 

13524 

1354 

HIT! 

4674 

471 

RXITl 

7614 

765 

•4AIT6 

42694 

4272 

SRITES 

412 

9764 

moi 

23484 

RTFORX 

2348 

24994 

RTTruL 

23344 

X 

594 

4006 

XID 

424 

x:s 

424 

XSTBR2 

42924 

XSTETX 

41514 

4156 

XM7LF2 

4084 

4037 

4197 

4204 

4247 

XPOS 

594 

4004 

XYICHI 

1326 

39664 

XYEFLG 

594 

3966 

XTZIS 

3990 

40004 

XYZOI 

3970 

3988 

39934 

XYZRTI 

18284 

3991 

XYZX7 

3983 

39914 

3998 

4018 

3736 

3746 

3749 

3772 

884 

1569 

4109 

4184 

1956 

1963 

1970 

1977 

1983 

1996 

878 

930 

943 

957 

969 

1018 

1335 

1363 

1394 

1410 

1427 

1442 

1601 

3154 

3283 

3307 

3432 

3460 

2121  2125  2129  2131 

2100  2116  2151  4035  4228  4294 


4254  42804 


20034 

1077 

1456 

3475 
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nsOSA.SAC  -  Sacro  Definitions  for  RCA  1S05A/6A  Opcodes 


30  FSB  1936 
R.  E.  TERRY 


(LISTING  SUFRESSEDI 


Mitli  sole  Level  II  codes 


;Tm  OFF  LISTING 
; INHIBIT  SOURCE  LISTING 


tktttitttlitttttttttttttiLttttittttttttttttttttttttttttttttttttttttttitttttt  ti 


For  use  witli  Syscon  NIS  asseibler  ■'  adds; 
1805A/6A  capability 
sole  RCA  LEVEL  II  CODES 
sole  NET  NACROS 

Include  this  file  into  source  prourai  usinq 
INCLUDE  I1306A.NAC 


COUNTER  CONTROL  — - 


STPC  NACRO 
OE  68B,00H 
ENDN 

DTC  NACRO 
DB  68H.31H 
ENDN 

SFM2  NACRO 
DB  68H,02H 
ENDN 


(STOP  COUNTER 


(DECRENENT  COUNTER 


;SET  PULSE  NODE  2 


SFNI  NACRO 
DB  68B,0<H 
ENDN 


;SET  PULSE  NODE  1 


(IACiiO-18  3.36 


PACE  1-1 


47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 
83 

34 

35 

36 

87 

88 


SCNE  KACRO 
OB  6aE,03H 
EHOX 

SCSI  MACRO 
OB  68H,05H 
SRDM 

LDC  MACRO 
OB  68B,06H 
EBDM 

STM  MACRO 
OB  68H,07B 
SBOM 

CSC  MACRO 
DB  68B,a8B 
EBDM 

S7Q  MACRO 
DB  68B,09B 
SBOM 


RBR  MACRO  ?1 
DB  68B,I0B0B  ^  PI) 
EBDM 

RLDI  MACRO  P1,P2 
DB  68H,(0C0B  +  Pll 
OB  P2 
SBOM 


;SET  COOBTER  MODE  2 

;SET  COUBTER  MODE  1 

;LOAD  COUBTER 

;SET  TIMER  MODE 

:CST  COUBTER 

;EBA3LE  TOGGLE  3 

.  REGISTER  OPS 

;RH  TO  RX  COPY 

; REGISTER  LOAD  IMMEDIATE 

.  MEMORY  OPS  - 


90 

91 


RLXA  MACRO  PI 
DB  68B,(060B  ^  Pll 
EBDM 


; REGISTER  LOAD  VIA  X  AND  ADVANCE 
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93 

RSXD  MACRO  PI 

94 

,  DB  68H,(0A0H  +  Pll 

95 

ENDM 

95 

97 

98 

99 

100 

101 

3CI  MACRO  PI 

102 

DB  68H,3SH 

103 

DB  LON  (PI) 

104 

ENDM 

105 

106 

BII  MACRO  PI 

107 

DB  6BH,3F3 

108 

DB  PI 

109 

ENDM 

no 

111 

DBNZ  MACRO  P1,P2 

112 

DB  68B,|020H  ^  Pll 

113 

Dl  P2 

114 

ENDM 

115 

116 

117 

118 

119 

120 

XI5  MACRO 

121 

DB  68B,0AH 

122 

ENDM 

123 

124 

XID  MACRO 

125 

DB  68B,0BH 

126 

ENDM 

127 

128 

CIE  MACRO 

129 

DB  68H,0CH 

130 

ENDM 

131 

132 

CID  MACRO 

133 

DB  68B,0DH 

134 

ENDM 

135 

136 

DSAV  MACRO 

137 

DB  68B,76E 

138 

ENDM 

.-REGISTER  STORE  VIA  X  AND  DECREMENT 

.  BRANCHES  - 

; BRANCH  OH  COUNTER  INTERRUPT 

; BRANCH  ON  EXTERNAL  INTERRUPT 

; DECREMENT  AND  BRANCH  It  NOT  ZERO 

.  INTERRUPT  CONTROL  . 

; EXTERNAL  INTERRUPT  ENABLE 

;EXTERNAL  INTERRUPT  DISABLE 

; COUNTER  INTERRUPT  ENABLE 

; COUNTER  INTERRUPT  DISABLE 


;SAVE  D 
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139 

140 

141 

142 

143 

144 

145 

146 

DADC  MACRO 

147 

DB  68E,74H 

148 

E5DM 

149 

150 

DSMB  MACRO 

151 

DB  68H,771 

152 

SHDM 

153 

154 

DACI  MACRO  PI 

155 

DB  68H,7CB 

156 

DB  PI 

157 

SHDM 

158 

159 

DSBI  MACRO  PI 

160 

DB  68H,7EH 

161 

2S  ?1 

162 

EHDM 

163 

164 

DADD  MACRO 

165 

D3  683,  0F4H 

166 

ENDM 

167 

168 

DSN  MACRO 

169 

DB  68H,0F7H 

170 

EHDM 

171 

1 

172 

DADI  MACRO  PI 

173 

DB  683,0FCS 

174 

DB  PI 

175 

EHDM 

176 

t 

177 

mi  MACRO  ?1 

178 

DB  68E,0FFH 

179 

DB  PI 

180 

ENDM 

181 

182 

183 

184 

BCD  ARITHMETIC 


:ADD  UITH  CARRY 


; SUBTRACT  MEMORY  RITH  BORRO* 


:ADD  RITE  CARRY,  IMMEDIATE 


: SUBTRACT  MEMORY  KITH  BORROS,  IMMEDIATE 


; ADDITION 


: SUBTRACT  MEMORY 


;ADD  IMMEDIATE 


SUBROUTINE  CONTROL 
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185 


186  SCIL  MACRO  Pl,?2  ;RCA  SCAL 

187  DB  68B,(80H  ^  PI) 

188  DR  P2 

189  BKOK 

190  ; 

191  SRET  MACRO  PI  ;RCA  SRET 

192  DB  68H,(9flH  +  PI) 

193  EKDM 

194  : 

195  TCAL  MACRO  PI  ; TERRY  SCAL  OSINC 

196  SEX  STACX  :X=R2=STAC!: 

197  DB  68H,86H  :RN=R6=RTliPTR 

198  DR  PI 

199  EKDM 

200 

201  TRET  MACRO  ;TERRY  SRET  DSIHG: 

202  SEX  STACX 

203  DB  68e,96H  :XsR2-STACX 

204  EHDM  :SN=R6=RTSPTR 

205 

206  ; -  RCA  LEVEL  II  MACROS  .  ■ 

207 

208  CALL  MACRO  PI 

209  SEP  R4 

210  DR  PI 

211  SIOM 

212  ; 

213  EXIT  MACRO 

214  SEP  R5 

215  EiDN 

216 

217  POSH  MACRO 

218  STXD 

219  ERDM 

220  ; 

221  POP  MACRO 

222  LDXA 

223  EIDM 

224 

225  IDLE  MACRO 

226  IDL 

227  ERDM 

228 

229  PHASE  MACRO 

230  ORG  eDSTRT+(S-LORIS))+100H 
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NACROS: 

3CI 

3X1 

CALL 

CID 

CIE 

3ACI 

DADC 

DADD 

DADI 

3BHZ 

DSAV 

DSBI 

DSN 

DSNB 

DSHI 

DTC 

STQ 

EXIT 

GEC 

IDLE 

LDC 

POP 

PPAGE 

PUSH 

RLDI 

RLXA 

RHX 

RSXD 

SCAL 

SCNl 

SCN2 

SPNl 

SPK2 

3XST 

STH 

STPC 

TCAL 

TRET 

XID 

XIS 

SYMBOLS: 


HO  FATAL  BRROR(S) 
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mi  1 


SEA  DUCT  E(!U.\TE  TABLE  -  ISDEQU.KAC 

26  AUG  66  -  SD05R9 

U.  E.  TERRY 

INCLUDIMG: 

REGISTER  ALLOCATIOR 
GLOBAL  PAGE  REFERENCES 
I/O  EQUATES 
DEFAULT  VALUES 

ILISTIKG  SUFRESSED) 

.XLIST 

PREVIOUS  VERSIOI:  08  AUG  86  -  SD0SR6 

PREVIOUS  VERSION;  20  JUN  86  -  SD05R5 

PREVIOUS  VERSION;  21  NAR  86  -  SD05R2  thru  5R4 


««*  THIS  FILE  MUST  BE  INCLUDED  IN  ALL 

SEA  OUC?  PROGRAM  SOURCE  (’.NAC’I  FILES 

USE  ‘IHCLODE  ISDEQU.NAC* 

*•“  THIS  FILE  MOST  .NOT  BE  INCLUDED  IN  SEA  DUCT  SEQUENCER 
MACRO  PROGRAM  SOURCE  i’.MAC'l  FILES 


REGISTER  ALLOCATION 


SAIL  REGISTERS 


36 

0000 

DMA 

EQU  RO 

DMA  IN/OUT  -  ALSO  START 

37 

0001 

INTPC 

EQU  R1 

INTERRUPT  PROGRAM  COUNTER 

38 

0002 

STACR 

EQU  R2 

UTILITY  STACR 

39 

0003 

PC 

EQU  R3 

MAIN  PROGRAM  COUNTER 

40 

; 

R4 

SCRT  CALL  •  SCRT  NOT  USED  8Y  • 

41 

; 

R5 

SCRT  RETURN  «  THIS  PROGRAM  « 

42 

0006 

RTNPTR 

EQU  R6 

POINTER  FOR  RETURN  i  IMMEDIATE  BYTES 

43 

0006 

LIST 

EQU  R6 

•  ■  t  t  • 

44 

0007 

GPAGE 

EQU  R7 

GLOBAL  P.AGE  S  i  R  R7.0  tR7.1  REMAINS 

45 

0008 

CYCCNT 

EQU  R8 

REAL  TIME  CLOCR  CYCLE  COUNT,  uIHER  MISC. 
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NOTE:  S  i  R  =>  SAVED  AND  RESTORED  BY  IHTERRDPT  ««“ 
FOR  USE  OUTSIDE  INTERRUPT 

REGISTERS  A  -  F,  7.0  ARE  S  i  R 


INTERRUPT  REGISTERS  «»«»«»« 

:  INTERRUPT  PC  =  R1 

PPC  EQO  RC  : SEQUENCER  PSEUDO  PROGRAN  COUNTER 

RSTK  EQO  RD  ; SEQUENCER  RETURN  STACK 

ASTK  EQU  RE  :  SEQUENCER  STACK 

RTTY2  EQO  RF  ;TTY2  OUTPUT  POINTER 

;««“  REGISTER  B  IS  ALSO  SAVED  AND  RESTORED 
:  FROM  INSIDE  INTERRUPT  TO  INTERRUPT 


......  jjisc.  allocation  *"« 

Q  UT4  iBLT.2):INTBRROPT  PULSE:NEN.  PROTECT 

SFl  INTERRUPT  (  FUTURE  OPTION  ) 

SF2 

SF3  SEA  DATA  RECORDER 

SF4  UT4  i8LT.2) 


•  titttttttttttttttttttttst  ^/Q  select  *<>'^>*<<*<**<<<>>**<*****>*>><<*<^*>*<*‘<* 

GROUP  EQU  01  tSELECT  =  OUT  01;  READ  =  INP  01  -  GROUP  SELECT 


QKOUP  0  •«»««««« 

•<  INPUT  > 

SNITCH  EQU  02  ;BOTTON  AND  INSERTION  SNITCHES 
X  EQU  03  :X  POSITION 
n  EQU  04  :YX  POSITIONS 
;PING  EQU  07  :ACOUSTIC  TRANSPONDER 

:<  OUTPUT  > 


BATl  EQU  02  : BATTERY  1  RELAY 
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93  0003 

94  QDD4 

95  0005 

96  0006 

91  0007 

98 

99 

100 
101 
102 

103 

104  0002 

105  0004 

106 

107 

108 

109 

110  0003 

111  0004 

112  0005 

113 

114 

115 

116 

117 

118 

119  0002 

120  0003 

121  0007 

122 

123 

124 

125  3002 

126  0003 

127  0006 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 


BAT2  EQO  03  ; BATTERY  2  RELAY 

BAT3  EQO  04  ; BATTERY  3  RELAY 

LDVRST  EQU  05  :RESET  TBE  LOV 

CASERA  EQU  06  rTAKE  A  PICTURE 

Pllfi  Eflff  07  :PI8GER 


GROUP  1  »“•••“ 


;(  18PUT  ) 

CKPASS  EQU  02  tISPUT  COSPASS 
aSAOHG  EQU  04  ;IKPUT  HBADI8G 

:<  OUTPUT  ) 

iCHPASS  EQU  02  tCflSPASS  PUR.  AHD  LATCH 
HLATCE  EQU  03  :LATCH  HEADIHG 
aSHIPT  EQU  04  iHEADIIC  SER.  SHIFT  IH 
HDGPUR  EQU  05  rHEADIHG  POKER 


GROUP  2 


;<  IHPUT  ) 

ADL04  EQU  02  :A/D  POUR  LSB's 
ADEIE  EQU  03  :A/D  EIGHT  HSB’s 
RELAYS  EQU  07  ;RELAY  COHTROLS 

:<  OUTPUT  > 

NUX  EQU  02  :SUX  AHD  A/D  CCHTROL 

SDREQ  EQU  03  tSEA  DATA  RECORD  REQUEST 

PHPSPO  EQU  06  rCIRCULATIOH  PU8P  SPEED 
:RELAYS  EQU  07  iRELAY  SEHSE  LISES 


GROUP  3  ••**•••* 


.tMiiti  group  4  ««•»•••• 

«•«  group  5  -  1851  BIT  I/O 


<  IHPUT  ) 
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139 


140 

0005 

IQSTAT  EQU  05 

:1851  POST  STATUS 

141 

;IOA  »  06 

:READ  PORT  A 

143 

:IOB  =  07 

:READ  PORT  B 

143 

144 

:<  OUTPUT  > 

145 

146 

0004 

lOCLR  EQU  04 

;CLSAR  1351 

147 

0005 

lOCIEL  EQU  05 

:1851  PORT  CONTROL 

148 

0006 

lOA  EQU  06 

.-LOAD  PORT  A 

149 

0007 

PORTE  EQU  07 

;LOAD  PORT  B 

150 

151 

152 

•tiitxttt  cxOUr 

0  •  UARTS  ***»»»** 

153 

154 

0006 

UARTS  EQU  06 

:UART  GROUP 

155 

0012 

FORHTl  EQU  12H  :7  DATA  BITS,  1  STOP  BIT,  EVEN 

156 

157 

; (INPUT) 

158 

159 

0002 

DATAl  EQU  02 

:LEVEL  1  SAIL  UART 

160 

0003 

STATl  EQU  03 

:  LEVEL  1  SAIL  UART 

161 

0004 

OATA2  EQU  04 

.•LEVEL  2  SAIL  UART 

162 

0005 

STAT2  EQU  05 

: LEVEL  2  SAIL  UART 

163 

0006 

DATA3  EQU  06 

:NOT  USED 

164 

0007 

STAT3  EQU  07 

:NOT  USED 

165 

166 

;<  OUTPUT  > 

167 

168 

0003 

CNTRLl  EQU  03 

: LEVEL  01  SAIL  UART  CONTROL 

159 

0005 

CSTRLl  EQU  05 

rLEVEL  02  SAIL  UART  CONTROL 

170 

0007 

CNTRL3  EQU  07 

:.NOT  USED 

171 

172 

i  1 

GROUP 

174 

; 

175 

0007 

SYSTEM  EQU  07 

176  : 

17?  :<  INPUT  > 

178  ; 

179  ;<  OUTPUT  ) 

180  ; 

181  0006  HALT  EQU  06  :SUICIDE  PUNCTION 

183  0007  NBKQRY  EQU  07  :«EKOItY  PAGE  PROTECT  OR  SHA81E 


DKFINITIOHS  AHD  REFEJEMCES 
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185 

136 

187 

188 
189 


197 

198 

199 

200 
201 
202 
203 


SAIL  PROS  LOCATIOSS  t2716'S)  AHD  PAGE  REFEREHCES 


190 

0000 

BLT 

EQO  OOH 

BIT  SOHITOR  PROM  BASE  PAGE  ”« 

191 

0050 

GLOPG 

EQU  050H 

:«»  GLOBAL  PAGE 

192 

0052 

SSTEPG 

EQU  OS2E 

:»«*  SEQOEHCER  STAGE  PAGE  “* 

193 

0053 

STEPG 

EQD  053E 

MAIM  STAGE  BASE  PAGE  “» 

194 

005E 

BOFPG 

EQO  05BB 

;•**  SEA  DATA  OUTPUT  BUFFER  PAGE  “« 

195 

OOFS 

IHTPG 

EQO  0F8E 

IHTERRUPT  COHTROLER  BASE  PAGE 

196 

; 

;  i  CDP1877  1  •“ 

BLT.2  80IIT0R  RAM  PAGE  =  57 00: STAGE  EHD  =  57DF 


«“  OTHER  REFEREHCES 


204 

53DF 

STEEHD 

EQU 

(STEPG  ‘ 

lOOH)  +  0DF8  HAIH  STAGE  EHD  *  STEPG+DF 

205 

; 

206 

523F 

RSTETP 

EQU 

(SSTEPG 

lOOHI  +  3FH  ;SEQ  R  STAGE  TOP  -  RSTE  -  5200  -  523F 

207 

527F 

ASTETP 

EQU 

(SSTEPG 

lOOHI  +  7FH  :SEQ  A  STAGE  TOP  -  ASTE  -  5240  -  r27F 

208 

; 

209 

F800 

IHT8SE 

EQU 

(IHTPG  ‘ 

lOOE)  ♦  008  rlHTERRUPT  M.ASE  •  BRITE  OHLY 

210 

F840 

IHTCRL 

EQU 

(IHTPG  ‘ 

1008)  +  408  : IHTERRUPT  CONTROL  -  BRITE  ONLY 

211 

F880 

IHTVEC 

EQO 

(IHTPG  « 

10081  +  808  (INTERRUPT  PAGE  REGISTER  -  BRITE  ONLY 

212 

F800 

IHTSTA 

EQU 

(IHTPG  * 

10081  +  008  : INTERRUPT  STATUS  REG.  -  RE.AD  ONLY 

213 

F840 

IHTPOL 

EQO 

(IHTPG  * 

10081  +  408  (INTERRUPT  POLLING  REG.  -  RE.AD  ONLY 

214 

: 

215 

5B00 

BUFFER 

EQU 

(BOFPG  • 

1008)  (SEADATA  BUFFER  0  LOCATION 

216 

217 

218 

217 

•  ****** 

**** 

If  11 

VrlOML  PAUB  sBrBXfiSCBS 

220 

221 

5000 

GP 

EQU 

(GLOPG  « 

lOOE) 

222 

223 

0002 

PLEVEL 

EQU 

02E 

PASS  TBRU  LEVEL 

224 

0003 

SYSFLG 

EQU 

03H 

SYSTEM  FLAG  1 ADDRl BRITE; SYS  1  ;i  ,  i  ;l 

225 

0005 

GRCRAM 

EQU 

05B 

CRC  CALC.  SCRATCH 

226 

0006 

CRCHI 

EQU 

06E 

CRC  81  BYTE  RESULT 

227 

0007 

CRCLO 

EQU 

07H 

CRC  LO  BYTE  RESULT 

228 

0008 

RBEI 

EQU 

088 

RB.l  SAVE  FROM  LAST  INTERRUPT 

229 

0009 

RBLO 

EQU 

098 

RB.O  SAVE  FROM  LAST  INTERRUPT 

230 

OOOA 

GRPSAV 

EQU 

OAH 

CURREHI  I/O  GROUP  (OUTSIDE  INTERRUPT) 

MCSO-IS  JJ6 


PWH  1-5 


2il 

232 

UCIO'U  3,36 

OOOF 

PA58  1-5 

mm 

SQff  0F5 

Expsumr  amm  m  sibsle  orlpi 

233 

234 

00F6 

IQLQC 

BQO  OFBB 

I/O  BYTE 

235 

236 

237 
236 
239 

0028 

• tstttt 

32 

REAL  TIBS  CLOa  LOCAIIOBS  *“«“ 

EQO  40  r40  3:  imum  Wl 

240 

241 

0010 

DIOQ 

BQO  loa 

DAYS  1  100 

242 

0011 

010 

m  12S 

ms  1 10 

243 

0012 

D1 

EQU  128 

DAYS  1  1 

244 

0013 

aio 

BQO  13E 

BOORS  1  10 

245 

0014 

ai 

BQO  148 

HOURS  X  I 

246 

0015 

IflO 

EQS  158 

318.  X  10 

247 

0016 

SI 

BQO  168 

HIH.  X  1 

24S 

0017 

SECIO 

BQO  178 

SEC,  X  10 

249 

0013 

SECl 

EQO  133 

SEC.  X  1 

250 

0019 

CFCLBS 

BQO  198 

RTC  CYCLE  COURT 

251 

OOIA 

kRlQQ 

BQO  lAB 

AD7.-RET.  C8T  X  100 

252 

0018 

ARia 

BQO  ISS 

ADV.-RET.  CHT  X  10 

253 

OOlC 

ARl 

BQO  ica 

ADV.-RET.  C3T  X  1 

254 

flOlO 

karoo 

BQO  108 

00*  RETARD,  01*  HORS.,  32*  ADVANCE:  .’TC 

255 

30 1£ 

ATFLO 

E2»  I£8 

1  FLAO 

256 

OOIF 

ATHFLO 

BQO  1F8 

1  SIHOTB  FLAG 

257 

0020 

BUF9 

BQO  208 

START  OF  9  DIGIT  INPUT  BUFFER 

253 

259 

260 
261 
262 

0040 

; 

PULFLO 

IHSROSBHT  SPECIF 

BQO  408 

[C  FLAGS 

RELAY  DRIVER  PULSE  FLAG  -AC  *  ONI 

263 

0041 

mzn 

BQO  418 

RELAY  DRIVER  PULSE  COUNTER  (00*DCNE) 

264 

0042 

POOSOK 

SQO  428 

RELAY  DRIVER  RUBBER  i*  FF  Men  inactive 

265 

266 
267 
263 
269 

0060 

PPCBI 

SEQ0E8CBR 

BQO  608 

SEQ  PSOBDO  PC  ai  BYTE  POINTER 

270 

0061 

PPCliO 

BQO  618 

•  '  PC  LO  BYTE  POINTER 

271 

0062 

sstaai 

EQU  628 

SEQ  R  STACX  LQ  BYTE  POINTER 

272 

0063 

asmo 

EQO  638 

SEQ  R  STACX  HI  BYTE  POINTER 

273 

0064 

kstaai 

BQO  64B 

SEQ  A  STACX  LO  BYTE  POINTER 

274 

0065 

kOTKLO 

BQO  658 

SEQ  A  STACX  HI  BYTE  POINTER 

275 

276 
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ill  0066 

278  0067 

279 
230 
281 
282 
233 

284 

285 

286 


SEQFAS  EQU  66H 
SEQRAT  Sgil  67H 


SEQ  CTR  FOR  FAST  CYCLE  80DE 
SEQ  CYCLE  RATE  FOR  IHDIV.  SEQ.  I»ST. 
ir  SBQRAT  »SB=1  lie.  8x),  checx  lo  nibble: 
.1000  00001  EVERY  CYCLE 
(1000  0001)  EVERY  OTHER  CYCLE 
ilOOO  0010)  EVERY  FOORTH  CYCLE 
(1000  0100)  EVERY  EIGHT  CYCLE 
if  SSB  *  0  (ie.  Ox)  run  on  cycle  tHH  and  801 
it  SEQRAT  *  00,  run  oily  on  cycle  801 


287 


288 

0068 

PPCCST 

EQU  68H 

:8  TIHES  THRU  CURREHT  PPC 

289 

290 

0069 

FLAGA 

EQD  69B 

;FLAG  A  LOCATIOI 

291 

0Q6A 

FLAGB 

EQU  6AH 

rFLAG  B  LOC. 

292 

006B 

FLAGC 

EQU  6Ba 

;FLAG  C  LOC. 

293 

294 

295 

006C 

CTAHI 

EQU  6CS 

rCOUHTER  A,  HI  CST. 

296 

006D 

CTALO 

EQU  6DB 

:COUHTER  A,  LO  CHT. 

297 

006S 

CTAVHI 

EQU  6EH 

tCOUHTER  A,  HI  VECTOR 

298 

006F 

CTAVLO 

EQU  6FH 

;COUHTER  A,  LO  VECTOR 

299 

300 

0010 

CTBHI 

EQU  708 

.-COUITER  B,  HI  CET. 

301 

0071 

CTBLO 

EQU  71H 

tCOUHTER  B.  LO  CHT. 

302 

0072 

CTBVHI 

EQU  72H 

:COUSTBR  B,  HI  VECTOR 

303 

0073 

CTBVIO 

EQU  73H 

: COUNTER  9,  LO  VECTOR 

304 

305 

0074 

CTCHI 

EQU  74H 

:COUHTER  C,  HI  CHT. 

306 

0075 

CTCLQ 

EQU  75H 

: COUNTER  C,  LO  CHT. 

307 

0016 

CTCVHI 

EQU  76a 

.'COUNTER  C,  HI  VECTOR 

308 

0017 

CTCVLO 

EQU  77H 

: COUNTER  C,  LO  VECTOR 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 


*•““  PASS  THRO  LOOP  FLAGS  •••«•* 


007D 

BR2CNT 

EQU  7DH 

rCOUNTER  FOR  BREAK  LOOP  2 

007E 

TTY2ai 

EQU  7Ba 

:TTY2  OUTPUT  LIST  POINTER 

007P 

TTY2LO 

EQU  7FH 

,«  «  ■  0 

'f ttitl 

INSTRUMENT  SPECIFIC 

0080 

ERROR 

EQU  808 

-.ERROR  HORD 

IXYEIRQTITLT;  -  il  -  ,L2TI;L2UR 

0081 

ACSTAT 

EQU  81B 

:XPHDER  STATUS 

iSijnl.to  Suriacei^  --  ;C*d3iCid2',Cidl 

0082 

SNSTAT 

EQU  82H 

: SNITCH  STATUS 

(Bot;  -  i  -  ;lns0;;lns4;lns3;lns2llnsl 
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323 

0083 

PDSTAT 

EQU  83H 

324 

; 

325 

0084 

CMPSS 

EQU  84fi 

326 

0085 

HDG 

EQU  85H 

327 

0086 

PUMPl 

EQU  86H 

328 

0087 

PUMP2 

EQU  87H 

329 

; 

330 

0088 

CAMCNT 

EQU  88H 

331 

0089 

PITCH 

EQU  89E 

332 

008A 

ROLL 

EQU  BAH 

333 

008B 

BATTUP 

EQU  8SH 

334 

; 

335 

008C 

BATTSY 

EQU  8CH 

336 

008D 

ADGH8 

EQU  80H 

337 

008E 

ADGL4 

EQU  BEE 

338 

008P 

ADRH8 

EQU  8PH 

339 

; 

340 

0090 

ADRL4 

EQU  90H 

341 

0091 

A05H8 

EQU  91H 

342 

0092 

A05L4 

EQU  92B 

343 

0093 

EPOS 

EQU  93H 

344 

; 

345 

0094 

YZPOS 

EQU  94H 

346 

0095 

ADT1H8 

EQU  95fi 

347 

0096 

ADT1L4 

EQU  96H 

343 

0097 

ADT2E8 

EQU  97H 

349 

r 

350 

0098 

AOT2L4 

EQU  98H 

351 

0099 

ADT3H8 

EQU  99H 

352 

009A 

ADT3L4 

EQU  9AH 

353 

009B 

ADT4H8 

EQU  9BH 

354 

355 

009C 

AOT4L4 

EQU  9CH 

356 

009D 

ADT5H8 

EQU  9DH 

357 

009B 

ADT5L4 

EQU  9EH 

358 

009P 

ADT6B8 

EQU  9FH 

359 

360 

OOAO 

ADT6L4 

EQU  OAOH 

361 

OOAl 

ADT7H8 

EQU  OAIH 

362 

00A2 

.4DT7L4 

EQU  0A2H 

363 

0DA3 

ADT8H8 

EQU  0A3H 

364 

; 

365 

0DA4 

ADT8L4 

EQU  0A4H 

366 

00A5 

ADT9B8 

EQU  0A5H 

367 

OOA6 

ADT9L4 

EQU  0A6B 

368 

OOAO 

ADT0H8 

EQU  OAOH 

: RELAY  POD  STATUS 

tCCMPASS  VALUE 
; HEADING  VALUE 
; PLUME  PUMP  1  SPEED 
: PLUME  PUMP  2  SPEED 

: CAMERA  PRAME  COUNTER. 

:  PITCH  -  PENDULUM  1  (OLD  TILTH 
:ROLL  -  PENDULUM  2  (OLD  TILT2) 
:UP  BATTERY  VOLTAGE  *  (1/61 

:SYS  BATTERY  VOLTAGE  •  iI/61 


;A/D  GROUND  VALUE  HI  8  BITS 
;A/D  GROUND  VALUE  LO  4  BITS 
:A/D  REFERENCE  VALUE  HI  8  SITS 

;A/D  REFERENCE  VALUE  LO  4  BITS 
r.A/D  +5V  VALUE  HI  8  BITS 
:A/D  +5  VALUE  LO  4  BITS 
rCARRAGE  X  POSITON 


••CARRAGE  Y,2  POSITION 

rise  SEC.  TRANSMISSOMETER  HI  3  BITS  ,3A98: 76541 

;lst  SBC.  TRANSMISSOMETER  LO  4  BITS  l.fPFP'jllD) 

:2nd  SBC.  TRANS  HI  8  BITS  lBA98;’654l 

:3nd  SEC.  TRANS  LO  4  BITS  l?PP?:3210i 

:3rd  SEC.  TRANS  HI  8  BITS 

:3rd  SEC.  TRANS  LO  4  BITS 

;4ti  SEC.  TRANS  HI  8  BITS 

:4tll  SEC.  TRANS  LO  4  BITS 

:5tli  SEC.  TRANS  HI  8  BITS 

:5tli  SEC,  TRANS  LO  4  BITS 

:6tb  SEC.  TRANS  HI  8  BITS 

:6tll  SEC.  TRANS  LO  4  BITS 

:7tli  SEC.  TRANS  HI  8  BITS 

:7tll  SEC.  TRANS  LO  4  BITS 

:8th  SEC.  TRANS  HI  8  BITS 

;3th  SEC.  TRANS  LO  4  BITS 

:9th  SBC.  TRoNS  HI  8  BITS 

:9th  SEC.  TRANS  LO  4  BITS 

:10thSEC.  TRANS  HI  8  BITS  lBA98;7654l 
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369 

00A8 

ADT0L4 

EQU  0A8H 

370 

; 

371 

; 

372 

OOAD 

SOXPTR 

EQU  OADH 

373 

OOAE 

SENPTR 

EQU  OAEE 

374 

OOAF 

NULL 

EQU  OAFH 

375 

376 

377 

378 

OOBO 

ADFLG 

EQU  OBOE 

379 

OOBl 

TRFLG 

EQU  OBIE 

330 

00B2 

RECFLG 

EQU  0B2H 

381 

; 

382 

00B3 

HDGFLG 

EQU  OBIE 

383 

; 

384  ; 

385  ; 

386  ; 

387  : 

388  ; 

389  ; 

390  OOB4  niFLG  EQU  0841 

391  : 

392  ; 

393  : 

394 

395  ; 

396  : 

397 


-.lOtiSEC.  mss  LO  4  SITS  imFISIlSl 


KOX  LIST  POISTEIi  FOR  A/D 
lEN  LIST  POINTER  FOR  A/0 
MULL  STRQAGE  LOG.  FOR  UNUSED 
:A/D  L04  BITS 


A/0  '01'  FLAG,  AC  *  OS 
TRAHSSISSOMETER  A/D  'OS'  FLAG.  AC  =  OS 
SEA  DATA  RECORDER  'OS'  FLAG,  AC  =  ON 

HEADING  IRDTATIOS)  FLAG: 

AC  =  TURN  OS  ROTATION  ENCODER  PNR 
(  USED  BY  SEQUESCER  FOR  FAST  READ 
DURIS6  ROTATION) 

ELSE  =  TURN  OS  PNR  AT  CYC=1B  ISEC  =  x9) 

READ  HEADING  AT  CYCLIC  ASD  TURN  OFF  PSR 
SET  HEADING  FLG  =  00 

m  POSITIONS  FLAG: 

AC  -  TURN  ON  OPTO  INTERRUPTER  PNR 
I  USED  BY  SEQUESCER  FOR  FAST  READ 
DURING  xn  POSITIONING) 

ELSE  -  TURN  OH  PNR  .AT  CYC=24  iSEC  =  .'t9) 

READ  m  AT  CYC=25  .AND  TURN  OFF  PNR 
SET  XYE  FLG  =  00 


•98 

30BF 

HDGEEP 

EQU  OBFH 

:FLUSE  HEADING  '/ALUE  FOR  THE  SXPSRINENT 

( 

399 

: 

400 

OOCO 

L28UF 

EQU  OCOS 

.■LOOP  2  RECEIVE  SUPFES  (USED  BY  TTYO) 

401 

: 

J 

402 

ItlCtl 

ilSTXUSfiRT  5?bCIF1C  5(JuATSS  «*«*»»***»** 

i 

404 

: 

4 

405 

003A 

PMTCHR 

EQU  ':' 

;  PROMPT  CHAR.ACTER  =  : 

406 

; 

407 

0003 

ETX 

EQU  Q3E 

:ASCII  ETX  =  03 

408 

OOFF 

DONS 

EQU  OFFS 

:OSED  BY  TTY  CALLS 

409 

; 

410 

0029 

SDLNGI 

EQU  410 

■•SEA  DATA  RECORD  LENGTH  i BYTES) 

411 

; 

412 

0020 

HDGVAL 

EQU  020H 

;FLUHE  HEADING  DEFAULT  VALUE 

) 

413 

; 

.•NOTE!  -  NATER  FLOSS  .''ROM  HDGVAL 

414 
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PACE  1-9 


415  003C 

416 

417  OOFO 

418 

419 

420 

421  005A 

422  0006 

423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 


TIMBOl  EQU  60D  rTIME  ODT  CONST.  POR  lU  POSITION  NOVEMENT 

TINE02  EQU  OFOE  :TINE  OUT  CONST.  FOR  ROTATION  NOVENENT 

;  :  TINE02  I  2  =  .TINE  OUT  VALUE  FOR  ROT.ATION  NOVEMENT 

;  :  ie.  FO  =  480  Sec. 

TLEVEL  EQU  05AH  ; PENDULUM  TILT  ZERO  VALUE 

TLINIT  EQU  06D  :EXPERIMENT  TILT  LIMITS  (IN  DECREES) 


2  BIT  DELAY  ROUTINE 

SAIL  ADDRESS  .AND  REPLY 

DELAY  250  I  250  iSEC  DELAY! 

DELAY  20  i  INITIAL  SETUP  DELAY! 


.LIST 


PAGE  60 


;KLU3E 


i'JBTTL  3EADOCT  iX:  SZQ'JEXCZX:  iZZZXP.lAC 


iir  ;o 


PREVIOUS  VZXSICS:  SDEERV.XAC  20  AUG  26 
PREVIOUS  VERSION:  SDESRE.NAC  14  AUG  35 
PREVIOUS  VERSION:  SOE5R5.NAC  21  UUN  3: 


PREVIOUS  VERSIONS  EXIST 
il.  E.  TERRY 

SEA  :UC:  EXTENDED  SEQUENCER  PUNOTIONS 
..SEQUENCER  PREFIX  33, 

IiaOSA.NAC 

I1306A.SAC  -  .Nacro  3e:;2:::cns  :::  .IIA  :32:A,5A  Uiccdes 


.LISTING  SUPRESSEU. 

«i:;  5026  Level  II  codes 


ISDEQU.NAC 

ccA  jv'v.  c^vA.c  ..\cuC  " 

26  AUG  36  -  SDGcR' 


.'..lU. 

REGISTER  ALLOCATION 

'AGi  ?vi;I?.£NCZS 

.......  ^ 


SwTr. 


;ucRfl-ij  j.jo 
1X7  Si5'JE!iCZ?>: 


rAtfZ  i“i 

SDE=X9.XAC  22  ii?  36 


2030'  1C 

j  w  4  J  C 

3302'  :k 
3334'  a: 


ASSEMBLY  OF  THIS  EXTSUDZO  PRCGRAS  REI'JIRES  IIHIXG 
THIS  PROGRAM  SEGMENT  RITH  TEE  MAIN  SEA  DUCT  SEGMENT  VIA  115. 

•JSE:  118  /?:3OO/D;5flflD,SDOnRa,/?:23OO/D::O0C,S3E!iRs,SDS'.3n/N/X/Z 

far  generation  of  '.HEX*  file.  'Jse  X3ASIC  HXRCA  to  get  ’..RCA’  file. 


73Z:  115  /?:330/D:5000,SD3nRn,/?:2330/l;:33;,5DZa.Rn,SlSYSn/S/Z 
far  generation  :f  ’.COM"  file.  Use  BURN  to  burn  tie  PROMS. 

XiittXtittiiiXXXXXXXitXttXXXXXxXtttXtXSXXtmXXXiXXXXXXtXXXitXXXXXXXXttXXXXtXX 

ZXTRN  DECPPC,  INCPPC,  I'CM?,  3AVPPC,  SZTCIR 
EXTRS  H2CIX 


THIS  PAGE  llOOH  LOCATIONS!  ACTS  AS  A  POINTER  TO  THE  .ACTUAL 

EXTESI1E3  SEQUENCER  rUNCTICNS  iPREZlX  ’EO’!  ON  THE  NEXT  P.A3Z 


XTED:  INC  PPC 
LON  PPC 
.an:  OZCH 
PLO  INTPC 


f  ^  mV  JJm  mA  »  vAlJ  mJ 


0024'  C3  3123' 


3030'  ?8  30 

3332’  CO  0000‘ 


ORG  :EX:S0  ^  lOai 
3ATTRY;  L3R  BATT 


ORG  iZXTEO  ♦  24Hi 
PINGR:  L3R  PINGRX 


ORG  (EXTEO  +  30H) 
AOOH:  L2I  ADTLG 
13R  SSTCLR 


SE  MAIN  BATTERY  RELAYS  ,E3 
3  =  Oo  .VoCuing 

1  =  Relay  1 

2  =  Relay  2 

3  =  Relay  3 


REY  TELEMETRY  PINGZR  ;E3  On; 
n  =  Telesetry  lade  .imere 
r.  =  O-Z 


:  A/D  CN/OFF  lEO  3ai 
:  30=A/D  OFF  --  31=A;D  ON 


;<ACR0-1S  3.35  .’AGE  >2 

ZADGC:  EXT  SEQUEXCEX:  3DE5R9.XAC  22  SE?  36 


93 

ORG  (EXTEO 

♦  40Hi 

94 

•340' 

?3  31 

TROH: 

L3I  TRFLG 

;  TRASSSI3SO.METER  OX/C:;  ;E0  4n) 

95 

3042' 

CO  0000* 

LBR  SETCLR 

;  40=TRASS  OF:  -  41=TXAXS  OX 

96 

t 

i  i 

98 

1 

CRG  (EXTEO 

t  50H1 

99 

0050' 

?8  32 

SOOR: 

LDI  RECFLG 

;  RECORDER  ON/OFF  (EO  :ai 

100 

00:2' 

CO  0003* 

LBR  SETCLR 

;  50=REC  OFF  -  51=REC  OS 

102 

t 

103 

CRG  (EXTEO 

t  6flHi 

104 

0060' 

CO  0193' 

PUPS: 

LBR  PSPSX 

:  STORE  PUMP  SPEED  VALUES  CS  3PAGF 

105 

; 

106 

: 

137 

ORG  (EXTEO 

+  70H) 

108 

0073' 

CO  313D' 

LBR  TILTX 

:PITCH  -  ROLL  CHECK  (EO  VO) 

109 

111 

ORG  (EXTEO 

+  aOH) 

;  EO  80-83 

•  •A 

3080' 

CO  31:0' 

ROT: 

LBR  RCTX 

:  FLUME  ROTATION  COSTRCLS 

113 

! 

•  •n 

; 

!•* 

CRG  (EXTEO  +  34fil 

;  EO  34-87 

116 

3084' 

CO  01:3' 

LBR  ROTX 

;  FLUME  ROTATIO.S  CC.V:RCLS 

117 

; 

118 

: 

119 

ORG  (EXTSO 

*  90H1 

;  EO  90-93 

120 

0090  ’ 

CO  0342' 

IV. 

LBR  POSX 

;  PULSE  X%  X-,  I-,  ■{-  TRAVERSE 

124  3094'  CO  3342' 

125 
125 

•  a  I 

123  3093'  CO  0342' 

129 

130 


132 

133 

134 

135 

136 

137 
133 


:39C'  CO  0342' 


CXG  (EXTEO  r  94H)  ;  EO  94-97 

Z:  L5X  ?OSX  ;  PULSE  Z^  Z-  TXAVEXSE  PiR 

CRC  (EXTSO  *  98H)  ;  EC  98-93 

PC3XY:  L38  POSX  :  PCSITIOX  X  IP,  :  TRAVERSE 

ORG  ;EX:E0  +  9CH!  :  EO  9C-9r 
POSZ:  LBX  POSX  ;  POSITION  I  TRAVERSE 

ORG  (EXTEO  t  OAOHl  ;  EO  A0-A3 
SAMI:  L3R  SAXIX  ;  HATER  AND  SELIXEHT  SAMPLER  ?! 


OOAO'  CO  0660' 


:(AC-0-18  3.36 

3EA33CT  iXT  3SQUZXCZX;  SjZi 


143  30A4'  CO  3691' 


144  OOAi'  CO  36C4‘ 

145 


143  OOAC  CO  0701' 
149 


152  30CO'  CO  0730' 


156  OODO'  CO  0745' 


160  OOFO' 


P.4GZ  1-3 
J9.:iAC  22  3Z?  36 


163  00:3'  CO  0733' 

169 


3100'  £1 

aior  51 


CRC  OaXTHO  r  0A4fi) 
SAH2:  L3X  SAil2X 


OXG  iEXTZO  +  OASH) 
?U!i?:  LBJ  PUMFX 


CXG  lEXTEO  +  3ACH1 
•LOS:  LSX  ZLUMX 


CSC  lEXTEO  ^  ocoh; 

FLASH:  LBR  FLASHX 


OXG  lEXTSO  +  3D0H1 
XLDV:  LBR  RLDVX 


QRG  iZXTZO  +  OFOai 
FS'«f:  LBR  IFSXX 


CRG  ,ZX:Z0  +  3F3H; 
^ACO:  .joR  *:ACwX 


;  ZO  A4-A7 

:  RATER  Am  SECIHZST  SAXPLZR  42 


;  ZO  A3-.A3 

;  HYDRA'JLIC  .AND  SuCTICS  POMP 

;  VEI'R  PORT  CLEAS 

:  ZO  AC-AF 

;  FLOXE  IXSERT  A-S’D  RITHSRAR 
:  RSCIRCOLATE  PUMPS 

;  ZO  CO 

;  TARE  A  PICTURE 


:  ZO  CO 
:  RESET  LDV 


3.RA.YCa  IF  S'RiroZ  ,Z0  mu 
r.=5wi:cj  F0=3ottoa  cocuc:  sni:::. 

Fl-FIuae  iLser:::5  s’4i::ies 
FCs'hae  retracted  switci 
aaaa  =  3rasc;  address 


3XAXC3  IF  ACOUSTIC  SIGXAL 


ORG  ZXTZO  •  103H 

THIS  PAGE  CCSTAIXS  THE  ZXTZXDEC  SE50ZSCZR  FOXCTI3SS  PREFIXEC 
RITH  "EO*. 


tttmtttttttttttttt  20  la  -  PULSE  BATTERY  RELAYS 


3ATT:  SEX  IHTPC 
OUT  GROUP 


:  SET  I/O  GROUP  =  0 


MACRC-13  j.jo  PAGE  1-4 

ZAD'JC:  -XT  3E5UESCSX:  sDEnXP.XAC  22  3E?  36 


135 

UAUd 

30 

03  30 

136 

0133' 

oc 

IDS  PPC 

187 

0104' 

FA  03 

AEI  03 

;  OECIDE  IF  BATTERY  1,2, OR  3 

138 

3106' 

:B  31 

XRI  01 

;  ED  10  =  Do  Sociliig 

185 

0108' 

32  14' 

aZ  3ATT1 

;  EO  11  =  BATTERY  1 

130 

OlOA' 

F3  03 

XRI  101  XOR  021 

191 

OlOC 

32  13' 

3Z  3ATT2 

;  EO  12  =  BATTERY  2 

132 

310S' 

•3  31 

XRI  102  XOR  03) 

132 

3110' 

32  IC 

32  3ATT3 

;  EO  13  =  3ATTERY  3 

1:4 

3112' 

wJ  aw 

3R  BAfTXT 

EXIT  I?  SOT  1,2,  OR  3 

135 

196 

3114' 

t 

62  3ATT1: 

OUT  3AT1 

;  3a:texy  relay  1 

137 

0115' 

30 

03  00 

:  Cona.  S  -  Pin  3 

1 

3116' 

30  20' 

3R  3ATTXI 

;  Relay  Pod  1 

133 

200 

0113' 

53  3ATT2: 

OUT  3AT2 

;  BATTERY  RELAY  2 

201 

0119' 

00 

DB  00 

;  Cona.  H  -  Pin  4 

202 

OllA' 

33  20' 

3R  3ATTXT 

:  Relay  Pod  1 

203 

204 

311C' 

t 

54  3A7:3: 

OUT  3AT3 

;  BATTERY  RELAY  2 

205 

3112' 

00 

03  00 

;  Conn.  !!  -  Pin  5 

206 

311S' 

33  23' 

3R  3ATTXT 

:  Relay  Pod  1 

227 

208 

3123' 

CO  0000‘  3A7:XT: 

03R  ISCPPC 

209 

6** 

212 

t 

t 

f 

■  titttttxttitto  •()  24 

-  TELEMETRY  PIXGER  COSTROL  x«««xxii. ...... 

213 

215 

0123' 

?8  33  PISGRX: 

LDI  ppccr 

;  RISC  CODE  an  laa  =  30-0?i  MUST  5E  OS  ASTX 

215 

0125' 

A7 

PIO  GRACE 

;  CYCLES  FOR  30  SEC.  IConn.  M  -  Pin  3: 

3126' 

07 

ODH  GPAGB 

213 

3127' 

3A  37' 

3!IZ  PHGAGN 

:  IF  FIRST  TIME,  SET  CSTR 

?'  a 

3129' 

:8  IE 

:o:  30 

:  FOR  30  PISG  CYCLES 

H  •  • 

0123' 

- 

STR  GRACE 

•tis 

222 

012C' 

•3  31 

10 :  ACSTAT 

ISTORE  PISG  CODE  IS  31  SI33LE  ACST.AT 

223 

312E' 

A7 

PLO  GPAGE 

224 

312?' 

■7 

SEX  GPAGE 

225 

3130' 

cz 

LDI  ASTX 

226 

3131' 

!  Si 

SEL 

227 

3132' 

?E 

SHL 

228 

0133' 

?E 

SEL 

229 

0134' 

SEL 

230 

3135' 

OR 

I 


!(ACX0*13  3.;o  ?AGS  1-; 

siiZ'jc"  111  sz;-jehc:r:  m-i'i.n:  ::  se?  h 


:r. 

^  A 

0136' 

57 

SIR  GRACE 

it  ^  6 

233 

0137’ 

El 

1 

PHGAGS 

SEX  ISTPC 

SET  GROUP  00 

234 

0133' 

61 

Gui  GROuP 

235 

0139' 

00 

D3  00 

^  » 

4.J0 

3i3A' 

?8  19 

LDI  CYCLES 

237 

013C' 

A7 

?LQ  GFAGE 

233 

:i3D' 

07 

LD.Y  GRACE 

23? 

013E' 

■3  01 

aRI  01 

/  CYCjiS  •  i  .* 

240 

0140' 

32  54' 

32  RHCCYl 

241 

0142' 

?3  04 

XRI  101  XOR  05) 

:  =  3  ? 

242 

0144’ 

32  30' 

32  RSGCY2 

243 

0146' 

F3  OC 

XRI  105  XOR  09) 

=  9  ? 

*>  1  t 

.9i 

0143' 

32  39' 

32  RHGCY3 

245 

014A' 

■3  04 

XRI  109  XOR  ODH) 

;  =  D  ? 

246 

014C’ 

32  92' 

32  RRCCY4 

247 

014E' 

•3  1C 

XRI  (ODE  XOR  IIH) 

;  =  11? 

243 

0150' 

3A  5C' 

3X2  RXGXTl 

:  IF  XO?  GO  :0  RIGGER  E 

249 

* 

250 

3152' 

A  m 

PHGCY5; 

LAST  RING  IS  OR, CUR 

■1 S  • 

0153' 

•A  01 

AXI  01 

01:5' 

j2 

32  $+4  ; 

':C  RISC  OR  SOT  TO  RISC?' 

253 

0157' 

57 

O'C:  RISC 

254 

31:3' 

00 

•tn  A  * 

JO  4\i 

255 

2:6 

V 

V  *  «  7 

;3  33 

::i  RPCcsT 

dZ 

u«:3 

A7 

RLO  GPAGE 

2:3 

013C' 

37 

ujH  GPAGE 

-sq 

015D' 

rF  01 

SKI  01  : 

OECREKEST  RIXG  CYCLE  CO'JXT 

26u 

315:' 

57 

SIR  GRACE  ; 

GO  TO  SEXT  PRC  1;  lOSE 

261 

0160' 

32  5F' 

32  RHGXY2  ; 

IF  SOT,  DO  AXOTHER  RISC 

262 

0152' 

30  6C' 

3R  RXGXTl 

263 

l04 

0164' 

57 

PSGC'Fl: 

OUT  RIXC  ; 

AjVAYS 

mZ  ^ 

3165' 

20 

OB  00 

266  ' 

3156' 

F3  57 

IDI  3E5RATE  : 

SET  SE5  RATS  TO  EVERY  4  lYC 

m 

0158' 

A7 

RLO  GRACE 

263 

0159' 

F3  3? 

LDI  3?H  : 

(JFR  =  EVERY  4t5  C/C/ 

269 

0163' 

57 

STR  CRAGE 

270 

2T* 

; 

272 

OloC 

CO  0000* 

PNCX71: 

L3X  DECRRC 

FOIST  RPC  TO  RUN  AGAIN 

273 

* 

AND  EXIT  SEQUENCER 

274 

275 

; 

276 

916t' 

F8  57 

PSGXT2: 

LDI  SE5RATS  ; 

SET  SEQ.  RATS  TO  ONLY  CYCLE  41 

IIACRO'IS  3.35  PAGE  1-5 

ex:  SEQ'JESCi.’:  SDE£it9.;<AC  22  SE?  36 


il  > 

* 

V*  i  i 

A7 

?LO  GFAGE 

(t  1  d 

•  *  1 

.Jl  i  6 

•3  00 

GDI  00 

279 

0174' 

57 

STS  GPAGE 

233 

231 

3175' 

;2  31 

LSI  ACSTAT 

CLEAR 

232 

0177' 

A7 

FLO  GPAGE 

233 

0178' 

07 

L3N  GPAGE 

234 

0179’ 

:A  0? 

ANI  OFH 

^  C 
aiZ 

:v.y 

57 

STS  GPAGE 

236 

237 

yi'c 

IE 

ISC  AS7X 

CLEAR 

233 

017D' 

CO  0000* 

L3R  ISCPPC 

239 

f 

290 

; 

291 

3180' 

OE 

PSGCY2:  LDS  ASTR 

?i::3r 

292 

0131’ 

FA  08 

AST  08 

293 

0133’ 

32  37  ’ 

32  $1-4 

294 

0135’ 

57 

OUT  PISG 

295 

0136’ 

00 

D3  00 

295 

•a** 

0137' 

30  oC 

3R  PSGXTl 

E'XIT 

298 

0139' 

» ** 

j; 

PNGCY3;  LDS  ASTX 

PING? 

299 

:i3A' 

•A  04 

AHI  04 

300 

313C' 

32  90’ 

32  3^4 

301 

013E' 

57 

fl’JT  RISC 

302 

OlSt' 

00 

D3  00 

333 

•  4  ^  A  < 

Ja:u 

30  5C’ 

3R  PNGXTl 

tdA  A  • 

, 

•  09 

f 

Ju5 

3192' 

A  * 

Ji 

PNGCY4:  LDS  ASTR 

PING- 

306 

0193’ 

FA  02 

ASI  02 

307 

0195' 

32  99’ 

32  3+4 

303 

019''' 

57 

OUT  PISG 

309 

0198' 

00 

DB  00 

313 

0199' 

30  5C’ 

3R  PSGXTl 

EXIT 

312 

313 

-  STCR 

314 

315 

0193’ 

F3  36 

PNPSX:  LOI  PUSPl 

SET  GP 

316 

019D' 

A7 

PLO  GPAGE 

1*7 

319E’ 

OC 

LDS  PPC 

318 

019F’ 

FA  03 

ASI  03 

319 

31A1’ 

32  35’ 

32  PKPSO 

320 

01A3’ 

F3  01 

XRI  01 

321 

31A5' 

32  AF’ 

32  PHPSl 

322 

01A7’ 

F3  03 

XRI  101  XOS  02) 

AND  EXIT  SEQUENCER 


\ 


I 


I 


i 

■ 

i 

I 

I 

I 

I 

I 

I 

i 

i 

I 

I 

I 

I 

I 


1\CR0-15  3.3o  ?AJZ 

5;A:“C:  HZ  EZQZiSCZS:  SDi5X9.MAC  32 


323 

:iA9' 

32  AE' 

324 

OlAB' 

CO  0000‘ 

325 

V  A  0 

« «  a: 

17 

327 

323 

jIAF' 

1C 

325 

0150' 

3C 

333 

3131' 

57 

331 

3132’ 

CO  30Q0‘ 

332 

333 

3135' 

■3  00 

334 

3137' 

57 

33: 

3135' 

77 

335 

3139' 

57 

337 

313A' 

CO  0000* 

33E 

333 

340 

i  tA 

^  1  A 

J  'iA 

3133’ 

oc 

J  y  J 

313E' 

•A  03 

•  • 

«  «  ^  «  I 

OA  3000* 

34: 

346 

01C3’ 

:s  57 

347 

31C5’ 

A7 

348 

31C5' 

37 

345 

31C7' 

■3  5? 

3:3 
*  :1 

•  4  -1  V 
^  A  «'  i  A  ^ 

353 

ii 

3:4 

3iCD' 

F8  39 

3:5 

OIC;' 

A  t 

3:6 

3130' 

37 

3:7 

0131 ' 

FF  4E 

3:5 

3133' 

33  FO’ 

359 

3135' 

•:  13 

350 

3137' 

33  -O' 

351 

:o2 

0139’ 

17 

363 

313A' 

37 

364 

31DB’ 

FF  4E 

365 

OIDD’ 

33  FO’ 

366 

013F' 

FF  13 

367 

OlEl' 

33  FO' 

363 


3Z  ?XPS2 
laR  ISCPFC 

?M?S2: 

INC  GRACE 

;SE:  grace  TO  r’iJMP2 

?S?S1; 

INC  FPC 

; STORE  POMP  SPEED  VALCE 

LDN  PPC 

STR  GRACE 

:3R  INCPPC 

?X?S0: 

LDI  00 

;SET  ?DXP1,2  =  30 

STR  GPACS 

INC  GRACE 

STR  CRAGS 

IBR  INCRRC 

xiitiittttttttititttt  rj  73  -  sT'TQg  CHEC”.  «»*»«««»«*>«“«««««««“««« 


L3N 

PRC 

:REA3  PPC 

ANI 

03 

;SASX  -OR  1 

0  3  3ITS 

1-n; 

ISCPRC 

:RET’JRN  1? 

NOT  =  '0 

231 

3E5RAT 

:C:ECR  TO  S 

EE  I?  *E  ARE  SENTING  TEE 

?LO  GRACE 

;  ACOUSTIC  ERROR  MESSAGE  GENERATE: 

23N 

GPACS 

:  37  THIS 

PPC  ISEJRAT  =  5?Hi 

XRI 

08-3 

25Z 

PISGRX 

;  1;  SO, 

GO  TO  TEE  PlliCER  RCUTIIE 

DEC 

ASTX 

;3EC  ASTI 

USE3  TO  SEND  PINGER  CG3E; 

231 

PITCH 

;:3Eci  PITCH  ;i3:t  = 

?20 

GPACS 

;TLEVEL  =  ’/ERTICAI  = 

23.1 

jPAGE 

:TL:XIT  ^  TUT  IIXIT 

SNI 

iTLEVE2- 

iTiTxiT  *  ;:■ 

::eeci  -or  under  i:x: 

3.NF 

i 

SMI 

iiiniT 

*  41 

;CHECI  POR  OVER  IIXIT 

3DF 

ri2ERR 

:.ic 

GPACS 

;SET  GRACE  =  R022 

23X  GRACE 

iCHECI  ROL2 

SMI 

(TLEVEL- 

iTLIXIT  *21! 

:CHECI  FOR  ’JIDER  21X1 

3SF  TILERR 

sx:  •  <)  ;chece  ecr  over  lixz: 

3DF  TILERR 


I 


I 


■I"  ■  ^ 


“■“^  't. 

\ 


SEADUCT 


!>kC?.0-ls  3.35  EASE  3-o 

ex:  SEg’JE.XCEX:  sDE5ii9..XAC  22  SE?  36 


353 

0  iZi  j 

F8  50  TILTOX:  LDI  ERROR 

;se:  til:  bit  of  error  «crd  =  : 

373 

01E5’ 

A7 

?LO  GPAGE 

371 

01E6' 

07 

LOK  GPAGE 

•  ?  ^ 

j ;  6 

01E7 ' 

FA  :f 

AHI  OOFH 

-  3i.  3 

373 

01E9' 

57 

SIR  GPAGE 

374 

;  ■  ; 

OlEA' 

F8  OC 

LDI  OCR 

:LOAD  ASTX  iilTH  ’TILT  OX’  CODE 

375 

OlEC 

5E 

STR  AS7X 

377 

OlED' 

« 'J  J  A  £  w 

LBR  PISGRX 

;SESD  "TILT  CX’  ;"C’! 

373 

379 

OlFO' 

F8  30  TILERR;  LDI  ERROR 

:SET  TILT  BIT  OF  ERROR  '.•CRD  =  1 

330 

01F2' 

A7 

?LO  GPAGE 

331 

01F3' 

07 

LON  GPAGE 

332 

01:4' 

:9  20 

ORI  20E 

;:iLT  BIT  =  BIT  5 

333 

01F6' 

57 

S7R  GPAGE 

334 

385 

Q1F7’ 

F8  OD 

LDI  ODE 

;LOAD  ASTX  RITE  "TILT  BAD"  CODE 

386 

01F9’ 

55 

37R  ASTR 

337 

OlFA' 

CO  0123' 

LBR  PIHGRX 

;SESD  "TILT  BAD"  I’D") 

338 

389 

390 

391 

392 

Itlttxtltttoitttttt 

SO  3n  -  FLCXE  ROTATIOS  CONTROL  xtiMi.iittx.tixMi. 

393 

394 

31FD’ 

F3  67  .EO:X;  LDI  SEQRAT 

.•CEECX  TO  SEE  IF  «E  ARE  SESDI.VG  THE 

395 

OlFF' 

A7 

PLO  GPAGE 

;  ACOUSTIC  ERROR  MESSAGE  GENERATED 

336 

0200' 

3^ 

LDR  GPAGE 

:  B'f  THIS  PPC  ;SE5RAT  =  3FHi 

397 

0201' 

F3  3F 

XRI  08F5 

398 

0203' 

C2  0123' 

L3Z  PISGRX 

;  IF  30,  GO  TO  THE  FINGER  RO'JTINE 

399 

400 

0206' 

OC 

LDH  PPC 

401 

0207  ' 

FA  03 

AHI  03 

402 

0209' 

C2  0223' 

LBZ  RCI 

:E0  30  ROTATE  CR 

433 

020C' 

F3  01 

XRI  01 

404 

:20S' 

$ 

W* 

LBZ  Rcca 

;E0  31  ROTATE  CCS 

405 

0211' 

FB  03 

XRI  101  XOR  02) 

406 

3213' 

w  4i  J  2  J  J 

LBZ  ROTRTS 

;E0  32  ROTATE  TO  TRANSPORT  FOSITIOS 

n  «.■  • 

j2i6 

•3  31 

XRI  102  XOR  031 

403 

3213' 

C2  0270' 

LBZ  ROTHDG 

:E0  33  ROTATE  TO  EXPERIMENT  POSITION 

409 

3213' 

FB  37 

XRI  103  XOR  04) 

413 

02D' 

C2  0201' 

LBZ  ROTCOR 

:S0'34  .ROTATE  TO  CORE  POSITION 

411 

0220' 

CO  0000‘  ROTXT:  LBR  IHCPPC 

412 

413 

414 

0223' 

.RCM:  SCAL  R6,  PULSE 

, -PULSE  ROTATE  CS  RELAY 

f 


rjF 


X 


SC30-15 

3.36  PAGE 

1-9 

ijiDuc: 

EXT  iij: 

•XCZX:  33E529.XAC  22 

3E?  36 

't*Z 

0223' 

68  36  ^ 

,16 

0225' 

0736’  T 

417 

0227  ' 

14 

33  24Q 

1J.3 

0223’ 

03 

33  OSH 

:3  CYCLES  =  200  sSec.  Pulse 

419 

0229' 

30  20’ 

3R  X07X: 

420 

r 

•1* 

tu* 

; 

1  •  •, 

0223’ 

RCC'i:  3C.\L  ?.6.  P'OLSE 

;  PULSE  ROTATE  CCR  RELAY 

tA  J 

A  A  ^  t 

63  36  ’■ 

424 

3aaa 

373b' 

425 

022F' 

15 

33  25Q 

426 

0230’ 

08 

33  33H 

:3  CYCLES  =  200  :Sec.  Pulse 

<  <**» 

4*; 

0231’ 

30  20' 

3S  ROTX: 

423 

; 

413 

430 

■  ttttttttttttittttt  jotate  :o  •frasspoxi”  position  -  eo  32  ..«x. 

431 

; 

432 

0233’ 

F8  63 

ROTXTS:  331  P9CCXT 

:1st  TIKE  THRU  TIE  rPC  ? 

433 

0235' 

A7 

P30  3P.AGE 

434 

3235  ’ 

07 

::s  GPAGE 

43: 

436 

0237' 

CA  0254' 

33H2  ROTOH 

;  IF  ;;CT;  GO  TO  XO.V 

4:7 

433 

323A' 

•3  35 

R0700;  331  33C 

;  GET  C'v'RREHT  ES.ALIL'G 

435 

Jaj: 

A7 

P30  G?AGE 

440 

0233' 

07 

33S  GRACE 

i  1 « 

; 

<  1 
tiA 

3EC  ASTX 

:  STORE  OL'RREXT  EEA3ISG  OS  ASTK 

•  * 

o:;?' 

55 

3:x  as:k 

;  ;.SOT  'JSED  3UT  THE  ASTK  GETS  ISCREXESTE3 

,44 

1 

:  LATER  ASD  RUST  3E  OECREKE.STEj  HERE! 

445 

0240' 

FF  FD 

SKI  OFOa 

;TRA.SS?ORT  POS.  =  :3,  FE,  FF  SKI=>  O-XiRiP;  -/IF 

446 

0242' 

03  32E4' 

133?  XC7’XT2 

447 

; 

443 

0245' 

E2 

SEX  STACK 

:  SET  T?  ISITIAL  PARAMETERS 

449 

S<'A3  R6.  ROTO 

450 

3246  ’ 

63  36 

451 

0243’ 

02FO’ 

452 

453 

324A' 

12 

SEX  STACK 

454 

SCA3  R6,  PULSE 

:  PULSE  ROTATIOS-C'i  RELAY  TO  START  RCTATTOS 

455 

0243' 

6;  36 

456 

0243’ 

0736'  t 

457 

024F' 

14 

33  24g 

:  24Q  =  ROT-C*  Relay 

453 

0250’ 

04 

33  04B 

:  100  iSec.  Pulse 

459 

; 

460 

0251' 

33S  ROTXTl 

:  EXIT  THE  ROUTINE 

'll  ROUTISE 


wao-lo  ].j5 
5-AD"c:  ix:  3EC”ixczs:  s: 
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lOi 

lol 


:C3 

•04 

:C5 

•05 


0273’  n  53 
027;'  A7 
0280’  07 


-i63 

;i:4’ 

WA 

ROTOX:  SEX  STACJ 

454 

SCAIi  R6,  HDGIX 

;  READ  :3E  3TRREST  EEADIXG  .STORE  AT  3-?  =  ElG 

465 

0155’ 

53  35 

too 

3257  ’ 

3000‘ 

- 

iTI 

; 

453 

0153’ 

73  35 

IDI  3DG 

02:3’ 

A7 

?:0  GPAGE 

iT  J 

j2:C' 

37 

IDS  GPAGE 

iTRASSPORT  POS.  =  70,  PE,  7? 

1  ^  • 

1 1  * 

3250’ 

77  ;D 

SSI  3FDH 

;  SS»  0-MiRiP:  :->07,; 

(72 

025f’ 

33  73  ’ 

3DF  XOTOOR 

:17  XT  TRASSPORT  POSITIOS,  GO  TO  ROTOCK 

473 

; 

i  •  i 

* 

•  -7  ‘’0** 

475 

0261  ’ 

SEX  STACK 

GO  TO  ROTATIOS  TlXECTT  i’JSP,CTTi::E 

(71 

SCAL  R6,  RCS: 

4)  / 

1 

53  35 

. 

473 

]2q4' 

0326’ 

- 

473 

TIMEOUT  ROUTINE  TS'CALLT  RET’JRSS  HERE 

450 

2166 ' 

'»'*  «  A  M  4 

las  Rc:x:i 

; 

TIMEOUT  RCUTISE  RETURNS  -ERE  17  TIME  3UT  I-  REA3EE3 

icl 

i33 

3159’ 

7^ 

ROTOiX:  SEX  STACK 

PULSE  ROT-C'i  RELA’f  TO  STOP  RCTATIO;; 

SCAL  R5.  PULSE 

435 

325A’ 

53  35 

• 

435 

326C’ 

3735’ 

- 

437 

325E’ 

ll 

03  245 

433 

3157’ 

23 

03  33H 

439 

3273  ’ 

33  32i3’ 

L3R  ROTERR 

GO  TO  RCTATIO.X  ERROR  ’CUTl.UE 

450 

431 

432 

3273’ 

E2 

ROTOCK:  SEX  STACK  : 

PULSE  ROT-:i  RELAY  TO  STOP  ROTATIOS 

433 

SCAL  R6,  P'OLSE 

434 

3274’ 

53  35 

435 

J*  <  0 

2T36' 

- 

435 

'^"^3  ' 

4  « >  d 

• » 

vo  249 

437 

3275’ 

33 

03  333 

^35 

327A' 

C3  32JF’ 

L3R  ROTCK 

GO  TO  P.OTATICS  OK  RCUTIUE 

rOl 

TO  POSITIOS  70R  EXPERIMSST  -  EO  33  «•>■<«•«•<■«>■<«** 

3Ui 

P.O’THDC;  3DI  PPCCXT 
?LO  GPACE 
ISH  G?AG£ 


:l5C  TIXE  THRU  THE  ??C  ? 


'e 


I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 


:5ACR0-:  ■ 

2.26 

TAVri  « 

>  mAm  v  L  « 

ii:  ssq: 

3;:CZ3:  3:Z5-9. 

.5A^  Jir  33 

;  ■ 

V  W  i 

3231  ' 

lA  A7' 

5SZ  sOTHX 

:  :z  ;:g::  gc  :c  rc::-;:; 

:05 

:G9 

,* 

f  * 

•  1::  ’ 

;:  34 

RO:33: 

l:i  :x?ss 

:  GET  C'JRRZST  CCXPASS  RZAGIXG 

Zii 

2235' 

A7 

?L0  GPAGE 

111 

*1  '  » 

17 

.iuS  j?AGE 

:13 

A  «  9  •  • 

^<i3/ 

AA 

?L0  JA 

:  STORE  CSPSS  REAOISG  IS  R;A.:i 

514 

::33’ 

Z7 

3ZX  G?AGZ 

:1: 

1133' 

•3  3: 

LDI  3DGEX? 

;  GZ:  THE  HZATISG  FOR  THE  EXPERIXEST 

3233' 

A7 

?LC  GPAGE 

:  HEAOISG  =  GIRECTICX  ZLCi  CGXEZ  ZRIX 

s  *  * 

;23C' 

3A 

GLO  RA 

513 

513 
;  “ 

3233' 

•5 

:D 

:  3D=>  x;r:x];  -  :  -> 

' 

,  HaGiX?  -  .X.'S  =  -> 

*»  *»  1 
J4dl 

•i  5 

4. 

30rn7; 

3EC  AS7R 

Za6 

123: ' 

53 

3:r  ASTK 

:  STORE  ZISAL  HEAGISG  ;3  CS  SEJUEXCER  ASTK 

;**  * 

•  41 

3290' 

« t  ^  ■ 

iSI  333 

:  5X»  :-x  R,?  ->;z.; 

« <■  • 

«  A  M  «  < 

'« 4 :  A 

13  Z4' 

3HF  XO:XT2 

•  <|  w 

; 

3294  ■ 

::  ;A 

3X:  IZAH 

;x:=> 

5Ic 

-4:3 

V :  4  •  1 ' 

lb;-  rctx:: 

511 

ZZX  ZZAGZ 

•  4  3  3 

•  •* 

5:2 

:29A' 

33  36 

514 

AAJA. 

«  4  /  V 

•  4:  • 

• 

5:5 

« b :  • 

I4 

3ZX  3ZACZ 

51" 

ZCAL  ?.6,  ?'::5Z 

:  ?t:se  reiay  ::  -tar:  rc:a::;s 

• : : 

A  A  A«»  1 

Ji,:: 

33  36 

• 

5:3 

\  ' 

*  4A« 

j '56  ‘ 

' 

5^1 

:2Ai' 

•  • 

33  15; 

:  15;  =  ::'i  R:;3::d:  Reliv 

T7. 

^  bAi 

1 4 

:3  143 

11c  3Sec.  P'.lse 

:i2 

l2A: ' 

:6 ' 

33  rctx:: 

5*15 

::a:' 

l4 

?,c:3S: 

SEX  STACX 

546 

zca:  j5,  3Dg:;; 

;  REA;  CTRREST  HEAOIXG  3  ,  STCRZ  AT  IP  =  RZG 

54? 

•  4AC 

33  36 

. 

543 

32AA' 

A  A  A  1 

* 

549 

; 

553 

32AC' 

•3  35 

131  3DG 

•  i.  * 

•  •  * 

32A£' 

A7 

?LO  GPAGE 

552 

32A?' 

( 

L:S  GPAGE 

:  H  .-.aw  ->  3 

I 


\ 


nao-'j 

3.36  PAG- 

1'12 

lAUv's.? 

iXr  jEJl’ 

iSCXR:  33-5.99. .nc  22  ;i 

?  36 

5:j 

554 

3230' 

ii 

33X  ASTX 

;  3  tiaal  ->  AST;. 

:5o 

t 

, -COMPARE  a  final  VITH  a  non 

■57 

3231’ 

:5 

SD 

;  ;3  final  -  iH  nowi  ->  2 

55S 

555 

■:3  22C7' 

L3Cf  XOTHOX 

;I;  AT  PROPER  POSITION,  SO  TO  ROTaCR 

55C 

551 

•,I:  HOT; 

*  ■) 

^  A 

3235' 

3tX  STACK 

;  SO  TO  ROTATION  UI.^-Cu:  SUS.ROUTIHE 

553 

SCAO  26,  .Res? 

554 

3236' 

63  36 

565 

3253' 

3326' 

555 

;T:ME0UT  routine  usually  returns  33RE 

:5i 

323A' 

A  ^  A  A  A  ^  1 

L3X  X07XT1 

555 

;?IMEO'JT  ROUTINE  RETURNS  HERE  I;  71X3  OUT  IS  REiCEEU 

563 

•  •  ■  ^  « 

32  R0T33X;  331  STACK 

: PULSE  ROT-CCR  RELA’Y  TO  STOP  ROTATION 

1"* 

SCAL  X6,  PULSE 

:12 

::3i' 

2ft  35 

S’*  * 

32C0' 

37B6' 

574 

•  ^  <1  A  » 

«  A  W  A 

1; 

33  25Q 

S" 

32C3' 

1ft 

23  OSH 

: '5 

A  A  A  1  1 

CO  3233' 

13s  P.CTEXR 

5"3 

A  A  AA  * 
W4H.  > 

32  9.0T3QK:  3HX  STACK 

:?ULSE  ROT-OCli  RELAY  TO  STOP  ROTATION 

573 

SCAL  36,  PULSE 

:3G 

*  A  A  A  > 

^Awft 

63  36 

531 

12CA 

3736' 

^  ft  A 

«  AV.  > 

1  J 

33  255 

ft  j 

WAV*/ 

33 

23  382 

554 

*  '9r»r ' 

00  320F' 

L3X  3OT0X 

:SQ  TO  ROTATION  OR  ROUTINE 

« ft  # 

■36 

■37 

••w  • 

ATE  TO  "CORE*  POSITION  -  EO  40  •immunttminn. 

533 

533 

3231  ’ 

.■8  63 

CTCOR;  IDI  PPCC.9T 

'*SV  4  Aufti  4MW  •'•'v  ' 

533 

3233' 

kl 

PLO  GPAGE 

531 

3234' 

17 

IDS  SPACE 

532 

3235' 

3A  A7' 

3SZ  ROTHS 

I?  NOT;  SO  TO  ROTH.H 

533 

594 

;ELSS: 

595 

3237’ 

?3  35  ROTCO:  LDI  3DC 

GET  CURRENT  HEADING 

596 

3239' 

A7 

PLO  SPACE 

597 

323i' 

07 

IDS  SPACE 

:?8 

3233' 

;?  20 

SHI  202 

PINO  CORE  HEADING 

I 
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EDGSOif  -  ::H  =  ->  EDGCIRE 


O'JJ 

601 

02DD' 

30  3E' 

3R  .ROTH? 

;  GO  TO  ROTH? 

602 

503 

604 

605 

•***““  ROTATIOS  - 

COMMOH  EXIT  POINTS  ««»“*«» 

606 

607 

02:?' 

«l<i 

OTQX;  SEX  S:.ACX 

603 

scAL  X6,  rot: 

;CLEAR  RARAHETERS 

609 

02£fl’ 

63  36 

* 

610 

02E2' 

0316' 

- 

612 

o:e4' 

IE 

3 

QTXT2:  INC  ASTX 

613 

•  ^  "  c  * 
<.‘613 

CO  3000* 

L3R  :hc??c 

614 

515 

616 

S*"' 

02Ea' 

CO  0Q00‘ 

3 

CTXTl:  L3R  DECPPC 

613 

^  -1-5  1 

■3  30 

.70TEER;  ID!  •■tRCR 

:SET  ROTATIOS  ERRCR  CODE  lOi  ERROR  RORD 

61? 

:2ZD' 

A7 

?LO  GRACE 

620 

02£i* 

0? 

i:X  GRACE 

»•« 

32Z: ' 

?9  40 

'jR.  »u.“. 

IROTATIOS  ERROR  CODE  =  jIT  6 

j2e1’ 

57 

STR  GR.AGE 

623 

; 

62i 

t 

«  4 

w4 

SEX  3TACX 

:C1EAR  PARASSTERS 

625 

SCAO  R6.  ROTl 

626 

MTV 

•  4*  w 

63  36 

- 

62T 

-  A  —  •  < 

u:z 

0315 ' 

- 

623 

; 

623 

32?V 

•8  03 

i:i  033 

:LOAD  ASTX  RITE  ERROR  CODE  :St:<  :3 

630 

02?9' 

5E 

STR  ASTX 

;  lo:  changed:  pinger  'lill  clear  and  increier. 

631 

02?A' 

CO  0123' 

15R  rlSGRX 

:SEHD  RINGER  ROTATICR  ERROR  CODE  .'j": 

i’.i 

w  ^  V 

634 


53: 

■  tttttttt  JOTATIGS  S'ulRODTIXES  *««»*«“ 

9  «  3 

537 

02;D' 

?a 

33 

ROTO:  IDI  .EDGFIG  : 

SET  EDG  FLAG  =  .AC  FOR  DEIS  :E3CEXCE 

633 

JaSS 

A7 

RLO  GRAGE  ; 

::':rss  on  rotation  encoder  rrr, 

633 

0200' 

E3 

AC 

EDI  OACH 

640 

0302' 

57 

STR  GRAGE 

641 

642 

0303' 

F8 

80 

DDI  ERROR  : 

SET  ERROR  WORD  SIT  6  =  0 

643 

0305' 

A7 

RLO  GRAGE 

644 

0306' 

07 

L3H  GRACE 
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645 

3307  ' 

;A  3F 

ASI  33FH 

646 

3309' 

57 

s:r  gpags 

547 

• 

643 

030A’ 

:3  63 

:di  ppccst 

;  SET  PPCCNT  TO  01 

649 

030C' 

A7 

PLO  GPAGE 

550 

030D’ 

F3  31 

LOI  01 

651 

030?' 

57 

STR  GPAGE 

0  E  A 

653 

3313' 

• 

A  1 

1 

:EC  GPAGE 

;  SET  SE5RAT  EG  EiX  EVERY  FORTH  CYOL 

654 

0311' 

F3  32 

L3I  323 

;  iZVERY  130  aSEC.l 

555 

3313' 

57 

STR  GPAGE 

656 

* 

557 

SRST  R6 

;RET'JRS  FROM  SOBROOTISE 

653 

3314' 

63  96 

+ 

660 


661 

0316' 

•3  63 

ROTl: 

IDI  PPCCST 

;CLEAR  PPC  CO’uST 

652 

3313' 

A7 

PLO  GPAGE 

663 

3319' 

■3  30 

LOI  00 

664 

665 

33:3' 

•  n 

' 

STR  GPAGS 

666 

567 

231C' 

27 

OEC  GPAGS 

: CLEAR  SSgOESCER  RATE 

663  ' 

3310' 

57 

STR  GPAGE 

669 

673 

331E' 

F3  33 

LOI  HDGFLG 

.•RESET  HOG  FLAG  =  30 

671 

3320  ' 

A7 

PLO  GPAGE 

572 

3321' 

F3  33 

LOI  30 

673 

3333' 

57 

STR  GPAGE 

s '  4 
-75 

SRET  R6 

;RETURS  PROS  SUBRO'JTISE 

575 

0324' 

63  96 

577 

1 

573 

579 

663 

ROTATIOH  - 

TINEODT  CHECX  S'JBRC'JTIHE  “«“««* 

631 

632 

3326' 

?8  19 

RCST: 

LOI  CYCLES 

:ISCREMEST  PPC  COUNT  ONCE  PER  SEC 

563 

3323' 

A7 

PLO  GPAGS 

1  Aa  ^.uuS  - 

634 

3329' 

07 

LOS  GPAGE 

635 

032A' 

F3  01 

XRI  01 

636 

332C' 

3A  3B' 

3SZ  RCSTXl 

:  EXIT  IF  CYCLES  NOT  31 

537 

:  IF  CYCLES  =  01 

533 

639 

032E’ 

27 

DEC  GRACE 

:  LQQX  AT  SSCl 

690 

332F' 

F6 

SER 

•w 
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591 

0330' 

33  33’ 

3DF  RCSTXl 

592 

; 

593 

0332' 

PS  53 

L3I  PPCCXT 

594 

0334' 

A7 

PLO  GFAGE 

595 

0335' 

07 

L3X  GPAGE 

695 

0336' 

57 

STR  GFAGE 

597 

0337  ’ 

?F  ?0 

SSI  TISSQ2 

693 

0339’ 

33  33’ 

EOF  RCSTX2 

599 

1 

730 

0333' 

scmi: 

SRST  R6 

701 

0333' 

53  95 

702 

t 

703 

0330’ 

16 

izmi: 

ISC  R5 

734 

333E’ 

•  f 

10 

ISC  R6 

705 

033?’ 

16 

ISC  R6 

■’36 

SRET  R6 

707 

0340’ 

53  95 

703 

; 

709 

;  EXIT  IP  SEC  =  QD3 
;  IXC  PPCCST  IP  SEC  =  EVES 

;  EXIT  IP  ??C  COUST  IS  LESS  THAN  TIHE02  LIXIT 
:  GO  TO  RCSTX2  I?  ??C  COC.VT  =  O.R  GREATE.E  THAI;  TI.'iEOS 

;XET'uXH  PXOM  SuESOUTIXE 

??C  COllT  =  TIMS  LIMIT, 

:XETUXN  TO  ROTATIQS  ERROR  SETUP 


Tij  5j  .  TRAVERSE  CCSTRCL 


1 

0342’ 

PQSX:  SEX  STAGE 

;E0  90-9? 

713 

0343’ 

3C 

:us  ??C 

0344’ 

PA  0? 

ASI  OPE 

*1  «  2 

*  •* 

0346’ 

C2  0383’ 

L3Z  POlXr 

;S0  90  Pulse  h  Relay 

*lo 

0349’ 

PE  01 

XRI  01 

**  *  7 

0343’ 

C2  038C’ 

L32  PULXS 

:E0  91  Pulse  X-  Relay 

■!13 

034E’ 

PE  03 

XRI  iOl  XOR  02) 

"’19 

0350’ 

C2  0395’ 

L32  PULT? 

:E0  92  Pulse  P+  Relay 

720 

0352’ 

PE  01 

XRI  i02  XOR  33) 

>  <ii 

0355’ 

C2  029E’ 

L3Z  PULPS 

;E0  93  Pulse  P-  .Relay 

722 

0353’ 

PB  07 

XRI  103  XOR  04) 

723 

Q35A’ 

C2  03A7' 

L3E  POLE? 

:S0  94  Pulse  Z+  Relay 

724 

335D’ 

PB  01 

XRI  104  XOR  05) 

725 

035P’ 

C2  3330' 

LBZ  PULES 

:E0  95  Pulse  2-  Relay 

725 

0352’ 

P3  0? 

XRI  .05  XO.R  OAH) 

727 

9364’ 

C2  0339' 

LBZ  XO 

:i0  9a  =  Zero  X  Posiv.or. 

723 

0367  ’ 

PH  01 

XRI  lOAH  .XOR  OBH) 

729 

0369’ 

C2  04IA’ 

LBZ  XI3C 

;£0  9fl  =  Increaen:  X  Positia.! 

730 

335C' 

;3  07 

XRI  im  m  OCR) 

731 

036E’ 

C2  0482’ 

LBZ  PO 

;E0  9C  =  Zero  Y  Position 

732 

0371’ 

PB  01 

XRI  lOCH  XOR  ODH) 

733 

0373’ 

C2  04E2’ 

LBZ  Vise 

;S0  9D  =  Increient  P  Position 

■;34 

3376’ 

PB  03 

XRI  less  m  OEB) 

735 

0378’ 

C2  0552’ 

LBZ  ZD 

;S0  9E  =  Zero  Z  Position 

736 

0373’ 

?3  01 

XRI  iOBH  XOR  OFH) 

XACRO-13 

3.36 
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ssiDuc: 

EXT  3E!d: 

EKZR:  SDE5R9 

.SAC  22 

SEP  86 

737 

037D' 

C2  0534' 

LBL  LISC 

733 

0380  ' 

CO  3000‘ 

L3R  IHCPPC 

739 

t 

740 

0383' 

POLXP: 

SCAL  R6,  POLSE 

741 

0383' 

68  86 

742 

0385' 

0736' 

t 

743 

0387  ' 

18 

DB  30Q 

744 

0388' 

08 

j3  083 

'45 

0389' 

CO  0000* 

L3R  IHCPPC 

746 

f 

747 

038C' 

PULXS: 

SCAL  R6,  POLSE 

748 

038C' 

68  86 

T 

749 

038E' 

0736' 

T 

750 

0390  ' 

19 

33  31Q 

751 

0391' 

08 

33  083 

752 

0392' 

CO  0000* 

L3R  ISCPPC 

753 

J 

754 

0395  ’ 

POLYP: 

SCAL  R6,  POLSE 

755 

3395’ 

68  86 

■f 

756 

0397  ’ 

0736' 

+ 

737 

0399' 

lA 

33  320 

753 

039A' 

08 

33  083 

759 

0393' 

CO  0000* 

L5R  ISCPPC 

760 

; 

lOi 

339E’ 

POLYS: 

SCAL  R6,  POLSE 

762 

039S' 

68  86 

+ 

763 

03A0' 

0736' 

- 

’64 

03A2' 

13 

33  33Q 

'55 

03A3' 

08 

33  083 

766 

03A4' 

CO  0000* 

L3R  ISCPPC 

767 

J 

763 

03A7' 

POLZP: 

SCAL  R6,  POLSE 

759 

03A7' 

58  86 

T 

770 

03A9' 

0736' 

- 

771 

33AB' 

33  340 

^ 

03AC’ 

08 

33  083 

773 

03AD' 

CO  3000* 

L3R  ISCPPC 

774 

t 

'75 

3330' 

POLLS: 

SCAL  R6,  POLSE 

775 

0330' 

68  86 

* 

777 

0332' 

3736  ' 

♦ 

773 

0334' 

ID 

DB  350 

779 

0335' 

08 

33  083 

780 

0336' 

CO  0000* 

L3R  ISCPPC 

731 

f 

782 

t 

:iO  9P  =  lacreient  Y  Posiiion 


:  Jelay  Driver  30Q  =  liH  =  24D 
;  8  CYCLES  =  200aSec, 
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SEADuC 

7  ex:  seq’j 

■SCEX:  S0E5ii9.}fAC  22 

Si?  35 

T3j 

784 

t 

ZERO  THE  X  POSITION:  SEQUENCER  CODE  =  EO  3A  “““ 

735 

t 

786 

0339' 

F3  57 

XO: 

L3I  SEQRAT 

CHECK  TO  SEE  IF  «E  AXE  SENDING  THE 

737 

03BB' 

A7 

PLO  GFAGS 

ACOUSTIC  ERROR  NESSAGE  GENERATED 

783 

03BC' 

07 

LON  GFAGS 

BY  THIS  PPC  (SEQRAT  =  8FH) 

739 

33BD' 

FB  8F 

XRI  38FH 

793 

03BF’ 

C2  0123' 

L32  FINGRX 

IF  SO,  GO  TO  THE  PINGER  ROUTINE 

791 

792 

03C2' 

■3  63 

LDI  FFCCST 

•1st  TINE  THRU  THE  PPC  ? 

793 

03C4’ 

A7 

PLO  GFAGE 

734 

03C5' 

07 

L3N  GFAGS 

795 

33C6' 

3A  E4' 

3NZ  XON 

IF  NOT;  GO  TO  XON 

796 

797 

1 

ELSE: 

798 

03C3' 

F8  93 

XOO: 

LDI  XFOS 

CHECK  CURRENT  X  POSITION 

799 

03CA' 

A7 

PLO  GFAGS 

3QQ 

03C3’ 

07 

LDN  GFAGE 

301 

33CC’ 

DEC  ASTX 

STORE  CURRENT  VALUE  OF  X  POS.  ON  ASTX 

302 

03cr 

FA  OF 

ANI  OFH 

(NOT  USED  BUT  THE  ASTX  GETS  INCRENENTED 

303 

03C?' 

5S 

SIR  ASTX 

LATER  AND  MUST  BE  LECRENEXTED  HERE) 

304 

3330' 

FA  03 

ANI  083 

CHECK  ZERO  POSITION  BIT  iNSB  OF  LO  NIBBLE) 

305 

0332' 

CA  061E' 

LBNZ  POSXT2 

IGNORE  AND  EXIT  IF  ZERO  POSITION  3IT=  0 

306 

; 

307 

0335' 

E2 

SEX  STAGE 

SET  UP  INITIAL  PARANETERS 

303 

SCAL  R6,  POSO 

309 

0336' 

63  36 

• 

310 

3333' 

0637  ' 

312 

033A' 

E2 

SEX  STACK 

PULSE  X-  RELAY  to  start 

313 

SCAL  X6,  PULSE 

tae  traverse 

314 

03BB' 

63  36 

+ 

315 

3333' 

0736' 

+ 

316 

033F' 

19 

DB  31Q 

3 IQ  =  X-  Relay 

317 

33E3' 

04 

3B  04H  : 

100  iSec.  Pulse 

313 

• 

319 

33Z1' 

CO  0622' 

L3R  POSXTl  : 

EXIT  THE  ROUTINE 

323 

•  «  4 

iii 

r 

322 

03E4' 

Si 

XO!l; 

SEX  IH7FC  ;REA3  X  POSITION  OPTO  INTERRUPTERS 

323 

03E5' 

61 

OUT  CROUP  ; GROUP  00 

324 

03S6' 

00 

DB  00 

325 

33E7' 

?3  93 

LDI  XFOS 

326 

03E9' 

A7 

PLO  GFAGE 

327 

03SA' 

E7 

SEX  GFAGE 

323 

03EB' 

6B 

INF  X  ; INPUT  X  POSITION 

:{ACRO-18 

3.36 

PAGE  1-13 

SZADUC? 

EXT  SEQUtSCEJ:  SDE5X9.XAC  22  SE?  36 

329 

03EC' 

FA  08 

AHl  085 

; CHECK  X  EERO  POSITIOX  BIT 

330 

03EE' 

CA  0410' 

L3NE  XOQE 

;IF  AT  EERO  POSITION,  GO  TO  XOOX 

331 

:IF  SOT: 

332 

03F1' 

F8  19 

EDI  CYCLES 

;  INCREMENT  ?PC  COUNT  ONCE  PER  SEC 

333 

03?3' 

A7 

?LO  G?AGE 

:  AT  CYCLES^  01 

334 

03F4’ 

07 

L3H  GPAGE 

335 

03F5' 

FB  01 

XSI  01 

336 

03F7’ 

CA  0622' 

LBUZ  P0SX71 

;  EXIT  I?  CYCLES  NOT  01 

337 

03FA’ 

F8  63 

LDI  PPCCST 

:  ISC  PPCCNT 

333 

03FC’ 

A7 

FLO  GPAGE 

339 

03F:' 

07 

LDI  GPAGE 

840 

03FE' 

FC  01 

ADI  01 

341 

0400' 

57 

STB  GPAGE 

342 

0401  ' 

FB  73 

XSI  (TIMEOl  ‘ 

2);  IF  PPC  COUNT  SOT  =  (TIMEOl  ‘  2)  L 

343 

0403' 

CA  0622’ 

LBKE  POSXTl 

:  THEN  EXIT 

344 

t 

345 

; 

346 

0406' 

E2 

XOERR:  SEX  S'TACX 

; PULSE  X-  RELAY  TO  STOP  TRAVERSE 

347 

SCAL  R6,  PULSE 

343 

0407  ' 

63  36 

r 

349 

0409' 

0736' 

T 

350 

040B' 

19 

DB  31Q 

351 

04flC' 

03 

33  085 

352 

040D' 

CO  0625' 

LBR  POSERR 

;GO  TO  POSITION  ERROR  RO’JTISE 

353 

354 


355 

0410' 

E2 

XOOX: 

SEX  STACK 

; PULSE  X-  RELAY  TO  STOP  TRAVERSE 

356 

SCAL  R6,  PULSE 

357 

3411' 

68  36 

f 

CO 

0413’ 

07B6' 

T 

559 

0415’ 

19 

3B  31Q 

860 

0416' 

08 

DB  08B 

361 

f 

862 

0417’ 

CO  0619' 

LBR  POSOX 

363 

364 

865 

366 

;***•*•“  INCREMENT  X  POSITION:  SEQUENCER  CODE  =  EO  9B 

367 

1 

363 

041A' 

?8  67 

XINC: 

LDI  SEQRAT 

: CHECK  TO  SEE  IF  NE  ARE  SENDING  THE 

869 

041C' 

A7 

PLO  GPAGE 

;  ACOUSTIC  ERROR  MESSAGE  GENERATED 

370' 

041D' 

07 

LDI  GPAGE 

:  BY  THIS  PPC  (SEQRAT  =  8FH1 

371 

041E' 

FB  3? 

XRI  08FB 

872 

0420' 

C2  0123' 

LBE  PINGRX 

;  IF  SO,  GO  TO  THE  PINGER  ROUTINE 

373 

t 

374 

3423' 

F8  68 

LDI  PPCCNT 

:1st  TIME  THRU  THE  PPC  ? 

MACR0-i8  3.36  PAGE  i-19 
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375 

3425' 

A7 

?LO  GPAGE 

376 

0426  ’ 

07 

LDB  GPAGE 

377 

0427' 

CA  0446’ 

LBSE  XINCE 

;  IF  SOT:  GO  TO  XISC.Y 

373 

379 

:ELSE: 

380 

042A' 

•8  93 

KKD: 

L2I  XPOS 

;  CHECK  CURRENT  POSITION 

331 

042C' 

A7 

PLO  GPAGE 

332 

0422' 

37 

L3tl  GPAGE 

333 

042E’ 

2E 

DEC  ASTX 

384 

042F' 

•A  37 

All  07 

:  KASK  OUT  UNUSED  HI  NIBBLE  AND  ZERO  iRESET! 

385 

0431’ 

5E 

s:r  ASTK 

;  STORE  ON  SEQUENCER  ASTK 

336 

3432’ 

?F  07 

SKI  07 

387 

0434’ 

C3  061S’ 

LBDF  POSXT2 

:  IGNORE  AND  EXIT  I?  POSITION  >=  7 

333 

; 

339 

0437’ 

E2 

SEX  STACK 

;  SET  UP  INITIAL  PARAMETERS 

390 

SCAL  B6,  POSO 

391 

0433’ 

63  36 

+ 

392 

043A’ 

0637  ’ 

393 

394 

343C’ 

E2 

SEX  STACK 

:  PULSE  X+  RELA’f  to  start 

395 

SCAL  R6,  PULSE 

:  the  traverse 

396 

0432’ 

63  36 

397 

043?’ 

0735’ 

393 

0441’ 

13 

OB  3flQ 

:  30Q  s  X*  Relay 

899 

0442’ 

04 

DB  04H 

;  100  iSec.  Pulse 

900 

* 

901 

0443’ 

CO  0622’ 

LBR  POSXTl 

;  EXIT  THE  ROUTINE 

902 

f 

903 

* 

904 

0446’ 

El 

XISCX: 

SEX  I5TPC 

;READ  X  POSITION  OPTO  INTERRUPTERS 

905 

0447’ 

61 

OUT  GROUP 

:  GROUP  DO 

906 

0443’ 

00 

23  00 

907 

0449’ 

?8  93 

LDI  XPOS 

903 

044B’ 

A7 

PLO  GPAGE 

909 

344C’ 

E7 

SEX  GPAGE 

910 

0442’ 

63 

n?  X 

•I.NPU’T  X  POSITION 

911 

044E' 

FA  07 

AKI  07H 

Mass  null  bits  "O"  position  bit 

912 

0450’ 

E2 

SEX  STACK 

913 

0451’ 

52 

STR  STACK 

914 

0452' 

OE 

L3X  ASTK 

GET  THE  ORIGIONAL  X  VALUE  FOR  THE  ASTK 

915 

0453’ 

?C  01 

ADI  01 

916 

0455’ 

F3 

XOR 

IX  POSI  XOR  (OLD  POS  t  1) 

917 

0456’ 

C2  0473' 

LBZ  XISCOK 

I?  AT  NEXT  POSITION,  GO  TO  XINCOK 

918 

t 

IF  NOT: 

919 

0459' 

?8  19 

LDI  CYCLES 

INCREMENT  PPC  COUNT  ONCE  PER  SEC. 

920 

045B’ 

A7 

PLO  GPAGE 

AT  CYCLES^  01 

XACR0-i8  3.36  PAGE  1-20 


SSADGC: 

EXT  SEQUESCSR:  3DE5R9.XAC  22 

3E?  36 

321 

u45C' 

07 

LDN  GFAGE 

322 

345D' 

?3  01 

XRI  01 

923 

045F’ 

CA  0622' 

lin  POSXTl 

;  EXIT  I?  CYCLES  SOT  01 

324 

0462' 

?8  58 

LDI  PPCCST 

:  ISC  PPCCST 

925 

0464' 

A7 

PLO  GPAGE 

326 

0455' 

07 

L3N  GPAGE 

927 

3466' 

?C  01 

ADI  01 

923 

0463' 

57 

3TR  GPAGE 

929 

3469' 

?B  3C 

XRI  TIMEOl 

;  I:  ??C  CGUST  SOT  =  TIlfEOl  LIMIT 

330 

0463' 

CA  3622' 

lENZ  POSXTl 

:  TEES  EXIT 

931 

t 

932 

; 

933 

046E' 

E2 

XIllCER: 

SEX  STAGE 

;?DLSE  X+  RELAY  TO  STOP  TRAVERSE 

934 

SCAL  R6,  PDLSS 

935 

046?' 

63  36 

336 

0471' 

3736'  t 

337 

0473  ' 

13 

D3  30Q 

933 

0474' 

08 

DB  OSH 

939 

0475' 

CO  0625' 

■M  POSERR 

940 

; 

941 

0473' 

E2 

XISCOX: 

SEX  STACR 

; PULSE  X+  RELAY  TO  STOP  TRAVERSE 

342 

SCAL  R6,  PULSE 

943 

0479' 

68  36  f 

344 

0473' 

0736'  > 

345 

047D' 

18 

DB  30Q 

346 

347E' 

33 

DB  OSH 

947 

047?' 

CO  0619' 

L3R  POSOX 

343 

949 

550 

951 

*  ttlili 

ZERO  THE  Y  POS 

:TI0N:  SEQ’JESCER  cods  =  EO  9C  *“*“ 

352 

953 

0432' 

?8  57 

YO: 

LDI  SEQRAT 

; CHECK  TO  SEE  1?  HE  ARE  SESDISG  THE 

954 

0484  ' 

A7 

PLO  GPAGE 

;  ACOUSTIC  ERROR  MESSAGE  GENERATED 

955 

0485' 

07 

LDN  GPAGE 

;  3Y  THIS  PPC  ISEQRAT  =  3:Hi 

356 

0436' 

?S  3? 

XRI  33FH 

957 

0488  ' 

C2  3123' 

L3Z  PIKGRX 

;  I?  SO,  GO  TO  THE  PISGER  ROUTINE 

353 

; 

359 

0433' 

?3  63 

LDI  PPCCNT 

:l3t  TIME  THRU  THE  PPC  ? 

960 

348D' 

A7 

PLO  GPAGE 

961 

048E' 

37 

LDI  GPAGE 

962 

043?' 

CA  04AD' 

LBIZ  YOl 

:  I?  SOT:  GO  TO  YINCS 

963 

f 

964 

f 

;SLSE: 

965 

3492' 

?3  94 

YOO: 

LDI  YZPOS 

;  CHECK  CDRREHT  POSITIOS 

966 

0494' 

A7 

PLO  GFAGE 

XAC?.0-:3 
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jZiiiuc: 

•XT'  SZiJl’ 

•nCEX:  3DE3R9.XAC  22  SEP  35 

?57 

3495' 

07 

L3H  GFAGE 

963 

0495' 

2E 

DEC  ASTE 

STORE  CURREST  ’YAL’JE  0?  Y  ?OS.  OS  ASTX 

969 

0497  ’ 

?A  ?0 

ANI  O?0H 

[SOT  ’USED  BUT  THE  ASTX  GETS  ISCP.EMESTEO 

970 

0499' 

5E 

SIR  ASTX 

LATER  ASD  SGST  3S  DECXEXES7ED  EEP.E) 

971 

049A’ 

rS 

S3L 

CaECX  EERO  POSITIOS  3IT  1!!S3  OF  HI  SISBLE) 

977 

049B' 

C3  361E’ 

130?  ?osxr2 

IGSORE  ASO  EXIT  I?  ZERO  POSITIOS  3IT=  0 

973 

; 

374 

049E' 

E2 

SEX  STACX 

SET  UP  ISITIAL  PARAMETERS 

97: 

SCAL  R6,  POSfl 

975 

049?’ 

c3  36 

977 

04A1' 

0637'  + 

978 

; 

979 

04A3' 

SEX  STACX 

PULSE  Y-  RELAY  :o  s:ar: 

933 

SCAL  R6,  PDLSE 

the  traverse 

981 

04A4' 

58  86 

932 

04A6’ 

0736’ 

983 

04A3' 

13 

03  33Q 

33Q  =  ■{-  Relay 

984 

04A9’ 

04 

D3  043 

100  iSec.  Pulse 

985 

A  •  f 

«  w  w 

vlAA 

L3R  POSXTl 

EXIT  TIE  ROUTISE 

987 

; 

933 

l 

939 

04  AD' 

El  YGS; 

SEX  ISTPC 

RE.AD  YE  POSITIOS  OPTO  INTERRUPTERS 

999 

04A£' 

61 

O’JT  GROUP 

GROUP  30 

991 

34A?' 

00 

03  00 

992 

3430  ’ 

?S  94 

LDI  YEPOS 

993 

3432' 

A7 

PLO  GPAGS 

994 

3433’ 

E7 

SEX  GPAGE 

995 

3434 ' 

SC 

IS?  n 

INPUT  n  POSITIOS 

596 

0435’ 

SHL 

MOVE  Y  EERO  POSITIOS  3IT  TO  LOR  SIBsuE 

997 

0436' 

C3  04D3’ 

LBDF  YOOX 

IF  AT  ZERO  POSITION,  GO  TO  YOCX 

998 

t 

IF  .SOT: 

999 

0439' 

n  19 

LDI  CYCLES 

INCREMENT  PPC  CO’UNT  ONCE  PER  SEC. 

1000 

0433’ 

A7 

PLO  GPAGE 

AT  CYCLES:  31 

lOo: 

043C’ 

«  / 

LOS  GFAGE 

1002 

0430' 

?3  01 

XRI  31 

1003 

043?’ 

CA  0622’ 

L3N2  POSXTl 

EXIT  I?  CYCLES  SOT  31 

1004 

34C2’ 

?3  63 

LDI  PPCCST 

i.';c  ??cc;;t 

1005 

0404’ 

A7 

PLO  GPAGE 

1006 

04C5' 

07 

LOS  GPAGE 

1007 

04C6’ 

?C  01 

ADI  01 

1308 

04C8' 

57 

STR  GRACE 

1009 

34C9' 

FB  3C 

XRI  TIMEOl 

I?  PPC  COUNT  SOT  =  TIMEOl  LIMIT 

1010 

04C3' 

CA  0622' 

L3SE  POSXTl 

THEN  EXIT 

1011 

; 

1012 

MACRO-18  3.36  PAGE  1-22 

lEAD'JC?  lU  SE5UEHCSR:  jDE:R9.MAC  22  SEP  36 


«  V  *  ^ 

04CE’ 

£2 

YO£R:  SEX  3IAC.X 

, -PULSE  Y-  RELAY  TO  STOP  TRAVERSE 

loi; 

3CAL  R6,  PULSE 

1313 

04CF' 

68  86 

+ 

1016 

0421' 

3735’ 

1017 

04D3' 

13 

23  330 

1018 

3424’ 

08 

23  033 

1019 

0425' 

CO  0625' 

L3X  FOSERR 

;GO  TO  POSITION  ERROR  ROUTINE 

13211 


«  •>  4>|  M 

3428’ 

E2 

YOOX; 

SEX  STAGE 

; PULSE  Y-  RELAY  TO  STOP  TRAVERSE 

1323 

SCAL  R6,  PULSE 

^0^4 

3429' 

68  86 

1025 

04OB' 

07E6' 

t 

1026 

3422’ 

13 

OB  335 

iUA  1 

042E' 

38 

2B  OSH 

1323 

; 

1029 

342:' 

CO  3619' 

L3R  POSOE 

1030 

1031 

1332 

1333 

INCERNSST  Y  POSITION:  SEQ'JENCER  C02E  -  E3  32  >““«• 

1034 

1335 

34E2' 

•8  67 

'(ISC; 

Lul  SEQRAT 

:CISCE  TO  SEE  IF  U  ARE  SESDING  THE 

1035 

34E4' 

A7- 

PLO  GPAGE 

:  ACOUSTIC  ERROR  MESSAGE  GENERATED 

1337 

04ES' 

37 

LBN  GPAGE 

:  BY  THIS  ??C  (SEQRAT  -  5FH1 

.338 

04E6' 

F3  8F 

XRI  08FB 

1339 

34ES' 

.•A  ^  • 

L3Z  PISGRX 

;  IF  SO,  GO  TO  THE  FINGER  RO'JTISE 

1040 

; 

1341 

34S3’ 

•8  68 

L2I  PPCCST 

;Ist  TIMS  THRU  7»E  ??C  ? 

1342 

04ED' 

A7 

FLO  GPAGE 

1343 

04EE' 

37 

LOS  GPAGE 

1344 

04E?' 

CA  0512' 

LBNE  YISCS 

:  I?  NOT;  CO  TO  YINCN 

1345 

; 

1046 

; 

;ELSE: 

1047 

34:2' 

F8  94 

YINCO: 

LBI  YZPOS 

;  CHECE  CURRENT  POSITION 

1048 

34:4' 

A7 

PLO  GPAGE 

1349 

34r5' 

07 

LOS  GPAGE 

1050 

04?6' 

2E 

2EC  ASTE 

1351 

34:7' 

F6 

SHR 

jMOVE  1  POSITION  TO  LOH  NIBBLE 

1052 

04F8' 

F6 

SHR 

1053 

04?9’ 

F6 

SHR 

1054 

04FA' 

?6 

SHR 

1055 

04F3’ 

FA  07 

AHI  07 

:  MASE  OUT  'UNOSED  HI  NIBBLE  AND  ZERO  (RESET)  31 

1056 

04PD' 

5E 

STR  ASTE 

:  STORE  ON  SEQUENCER  ASTE 

1357 

04FE' 

?F  07 

SKI  37 

1058 

3500' 

C3  36IE' 

LBDF  POSXT2 

;  IGNORE  AND  EXIT  IF  POSITION  >*  7 

;  SET  UP  INITIAL  ?AEA«ETEXS 
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1059 

1060 

0503' 

HiA 

1051 

1062 

0504' 

63  36 

1063 

05.06' 

063T 

SEX  STAGE 
SCAL  X6,  POSD 


1064 


1065 

0508' 

E2 

SEX  STAGE 

PULSE  h  RELAY  to  start 

1066 

SCAL  X6,  PULSE 

tie  traverse 

1067 

0509' 

63  36 

♦ 

1063 

0503' 

0736' 

t 

1069 

0500' 

lA 

DB  32Q 

32Q  =  Y+  Relay 

1070 

350E' 

04 

D3  04fi 

100  iSec.  Pulse 

1071 

; 

- 

1072 

050F' 

CO  0622' 

L3X  POSXTl 

EXIT  THE  ROUTINE 

1074 

1 

1075 

0512' 

El 

YINCN:  SEX  ISTPC 

READ  n  POSITIOR  OPTO  ISTERRUPTERS 

1076 

0513' 

61 

OUT  GROUP 

GROUP  00 

1077 

0514' 

00 

33  00 

1073 

0515' 

?8  94 

LOI  TEPOS 

1079 

0517' 

A7 

PLO  GPAGE 

0513' 

11 

SEX  GPAGE 

1031 

0519' 

6C 

ISP  n 

isp'u’T ::  PGsinc.’i 

1032 

051A' 

:6 

SSR 

mE  Y  POSITION  TO  LOR  XI33LE 

1333 

0513' 

•6 

S3R 

1034 

051C' 

•5 

SHR 

1335 

0510' 

;6 

SHR 

1036 

051S' 

?A  07 

AHI  07H 

Mask  null  bits  '0"  position  bit 

1057 

3520  ' 

32 

5TR  STAGE 

1038 

0521' 

SEX  STAGE 

1039 

0522' 

OE 

LDS  ASTK 

GET  THE  ORIGIONAL  Y  VALUE  FOR  TEE  ASTE 

1090 

0523' 

EC  31 

ADI  01 

1091 

0525' 

F3 

XOR 

lY  PCS)  XGR  ;0L3  ?OS  +  11 

1092 

0526' 

C2  0543' 

L3E  YISCOE 

T:  AT  NEXT  POSITIOX,  GO  TO  YISGOE 

1093 

I?  NOT: 

1094 

0529' 

E8  19 

ISCRESENT  PPG  GO'JST  CSCE  PER  SEC. 

1095 

3523' 

A7 

PLO  GPAGE 

AT  CYCLES^  01 

1096 

052C' 

07 

L3N  GPAGE 

1097 

352D' 

:B  31 

XRI  01 

1093 

052?’ 

CA  0622' 

L3SE  POSXTl 

EXIT  IF  CYCLES  NOT  31 

1099 

0532' 

?3  63 

LDI  PPCCST 

INC  PPCCST 

1100 

0534' 

A7 

PLO  GPAGE 

1101 

0535' 

07 

LDH  GPAGE 

1102 

0536' 

?C  31 

ADI  01 

1103 

3538  ' 

57 

STR  GPAGE 

1104 

0539' 

?B  3C 

XRI  TIKEOl 

IF  PPC  COUNT  NOT  =  TIMEOl  LIMIT 

:H'!I  exit 
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SEAD'JCT 

EXT  SEQUENCER:  SDE5R9.NAC 

22  SE?  36 

111: 

0533' 

CA  0522' 

L3NZ  POSXTl 

1106 

f 

1107 

; 

1108 

053E' 

£2 

YISCER:  SEX  STACR 

1109 

SCAL  R6,  PULSE 

1 , .  .1 

053F' 

68  86 

- 

1111 

0541' 

0796' 

+ 

*  4  4 

0543  ' 

lA 

OS  32Q 

1113 

0544' 

03 

OB  OSH 

llli 

«  4  •  C 

0545’ 

CO  0625’ 

LSR  POSERR 

.  2 

1116 

0548' 

E2 

YIHCOX:  SEX  STACR 

1117 

SCAL  R6,  PULSE 

1113 

0549' 

63  86 

r 

1119 

354B' 

0736' 

t 

1120 

0540' 

lA 

03  32Q 

1121 

a54E' 

03 

OB  08H 

1122 

054F' 

CO  0619’ 

L3R  POSOR 

1  •  d  ^ 

ii:4 

1125 

1125 


; PULSE  Y+  RELAY  TO  STOP  TRAVERSE 


: PULSE  Yr  RELAY  TO  STOP  TRAVERSE 


*“*“  EERO  THE  E  POSITICS:  SEQUESCER  OOOS  '  E3  ;E  •“•** 


1123 

0552  ’ 

?8  67 

1129 

0554' 

A7 

1120 

0555' 

07 

1131 

0556' 

•3  3? 

0553' 

C2  0123' 

1133 

«  *  J  ^ 

0553' 

■8  53 

•MC 

0550' 

A7 

1136 

055E’ 

07 

1127 

055F’ 

CA  357E' 

1125 

1129 

1140 

0562' 

?8  94 

1141 

0564' 

A7 

1142 

0565’ 

6/  f 

1143 

1556' 

2S 

1144 

0567  ' 

FA  OF 

1145 

0569' 

5E 

1146 

056A' 

FA  08 

1147 

055C’ 

CA  061E' 

1148 

1149 

056?' 

E2 

1150 


LOT  SSQRAT 

;CHECR  TO  SEE  IF  'RE  ARE  SENOING  THE 

PLC  GFAGE 

;  ACOUSTIC  ERROR  NESSAGE  OENERATEO 

LON  GFAGE 

:  BY  THIS  FFC  ISEQRAT  =  3F31 

XRI  33FB 

LBZ  PINGRX 

:  1?  SC,  GO  TO  THE  PIXCER  RC'.'TIXE 

LOT  FPCCST 

;lst  TINE  THRU  THE  PPC  • 

PLO  GFAGE 

LON  GFAGE 

L3NZ  ZON 

;  IF  NOT:  GO  TO  ZINCN 

;ELSB: 

LDI  YZFOS 

;  CHECX  C’JRRENT  PCSITICN 

FLO  GFAGE 

LON  GFAGE 

OEC  ASTR 

:  STORE  CURRENT  VALUE  0?  2  PCS.  OS  ASTR 

ANI  OFH 

;:;oT  used  3ut  the  astr  gets  iscrenexteo 

STR  ASTR 

:  LATER  AND  MUST  3E  OECRENESTEO  HERE; 

ANI  OSH 

:CHECR  ZERO  POSITION  BIT  (MSB  OF  LO  NIBBLE! 

L3SZ  FOSXT2 

;  IGNORB  AND  EXIT  IF  ZERO  POSITION  3IT=  0 

SEX  STACR 

:  SET  UP  INITIAL  PARAMETERS 

SCAL  R6,  FOSO 

MACHC“1j  3.35  ?AGa  *“43 

Siij'JCT  ZX:  sZQUESCER:  3ilt5X9.!(AC  22  Si?  oo 


2570  ’ 

63  36 

* 

1152 

2572' 

3637' 

r 

1153 

t 

1154 

3574’ 

£2 

SEX  STACK 

:  PULSE  1-  lluk'i  to  start 

1155 

SCAL  36,  rCLSE 

:  the  traverse 

1155 

3575' 

63  86 

* 

1157 

357'’ 

3736' 

T 

1158 

3579' 

13  35Q 

;  35Q  =  1-  Eelay 

1159 

357i' 

34 

33  34H 

:  13'3  aSec.  Pulse 

1151 

4  *  A  * 

.iOi 

3573' 

33  3622' 

laS  rOSXTl 

;  EXIT  THE  JOUTISE 

1:53 


1164 

El 

EOS;  SEX  IHTPC 

READ  U  POSITION  OPTO  INTERR':?:-?.: 

1155 

357?' 

ol 

OUT  GXQCP 

GRO'JP  30 

1166 

3580' 

33 

03  30 

1167 

3581' 

F3  94 

LDI  'fXPOS 

1168 

0533  ' 

A7 

PLO  GPAGE 

1159 

3534' 

E7 

SEX  GPAGE 

l'i73 

3585’ 

63 

ISP  n 

INPUT  YZ  POSITION 

1586' 

;A  18 

ASI  383 

liiZl  1  i.iSO  ?OS...,<N  8.. 

1'.72 

3558' 

CA  ;5AA' 

13SE  ZOCX 

IF  AT  ZERO  POSITION,  GO  TO  OOOX 

11  <  t 

0533' 

:8  19 

10:  CYCLES 

IF  NOT: 

ISCRENEST  PPC  COUNT  ONCE  PER  S 

1175 

3532' 

A7 

PLO  GPAGE 

AT  CYCLES'  31 

1176 

353E' 

3'’ 

IDS  GPAGE 

ll?*' 

3:3F' 

•3  31 

XRI  31 

1178 

3591' 

:a  3622' 

LESZ  PCSXTl 

EXIT  IF  CYCLES  SOT  31 

1179 

3594' 

•5  53 

121  ppccs: 

INC  PPCCNT 

1183 

3596' 

A7 

PLO  GPAGE 

1131 

3597' 

j7 

uHN  G?AG£ 

1132 

0598' 

;C 

ADI  31 

1133 

059A' 

57 

STX  GPAGE 

1184 

3593' 

?a  3c 

XXI  TISEOl 

IF  PPC  COUNT  NOT  =  TIXEOl  UNIT 

Hi- 

H?j' 

:A  3612' 

13SZ  PCSXTl 

THEN  EXIT 

1186 

1137 

1133 

1139 

:5A0' 

E2 

ICEXX:  SEX  STACK 

; PULSE  RELAY  TO  STOP  TSA'7ERSE 

1193 

1191 

35A1’ 

68  86 

SCAL  X6,  PULSE 

1192 

35A3’ 

3736' 

+ 

1193 

35A5' 

ID 

D3  35g 

1194 

05A6' 

08 

}S  2ES 

1135 

35A7' 

CO  0625' 

L3X  POSERS 

iGQ  TO  POSITION  ERROR  RO'UTINE 

1196 


■iBi^  I  m  IP 


XACRO-15 

3.35 

PAGE  1-26 

jEADUCT  ext  SEQUSSCER;  SDE5R9.XAC  22  SEP  56 

1197 

1153 

05AA' 

■2 

ZOOK: 

SEX  STACE 

; POLSE  Z-  RELAY  TO  STOP  TRA’YERSE 

1199 

SCAL  R6,  POLSE 

1200 

05A3' 

68  86 

T 

1201 

05AD' 

0736’ 

■t 

*aj2 

05AF' 

12 

23  35Q 

1203 

0530’ 

03 

23  08E 

1234 

'205 

0531’ 

CO  0619' 

L3R  POSOX 

1206 

1207 

1203 

1209 
'  1 

nCREMENT  2  POSITIOS;  SEQUENCER  C02E  =  EO  3: 

0534' 

•8  67 

•?  TV/*  . 

121  SEQRAT 

ICHECX  TO  SEE  IF  '8S  ARE  SE'IOING  THE 

1212 

0536' 

A7 

?LO  GPiCE 

;  ACOOSTIC  ERROR  MESSAGE  GENERATE: 

1213 

0537  ’ 

07 

12N  GPAGE 

:  3Y  THIS  PPC  (SEQRAT  =  3FH1 

1214 

0538  ' 

FB  3F 

XRI  38FH 

1213 

353A' 

v^v 

V  A  A  A  V 

13Z  PISGRX 

;  IF  SO,  GO  TO  THE  FINGER  ROI’TINE 

1216 

; 

*  •-  -7 

•  TiX  < 

0552' 

•3  58 

::i  ppccHT 

:l5t  TINE  THRU  THE  PPC  - 

1213 

05BF' 

A7 

?10  GFAGE 

1219 

35C0' 

07 

•JN  GPAGE 

0501' 

CA  05E0' 

15XZ  ZINCS 

;  I:  NOT;  GO  TO  lINCN 

1221 

J 

1222 

; 

;ELSE: 

1223 

0504' 

■3  94 

ZINCO: 

121  YZPOS 

:  CHECK  CURRENT  POSITION 

1224 

05C6' 

A7 

?LO  GPAGE 

1225 

05C7’ 

07 

12N  GPAGE 

1226 

0503' 

2S 

2EC  AS7X 

•  4  ^ 

> 

0509' 

•A  37 

ASI  07 

:  NASX  O’GT  l'SUSE2  HI  SI331E  AN:  IE?: 

1228 

0503' 

5E 

STR  ASTX 

:  STORE  OS  SEQ'JENCER  ASTX 

1229 

35CC' 

:F  37 

SSI  07 

1230 

35CE' 

C3  061E' 

L32F  POSXT2 

:  IGNORE  ANO  EXIT  I?  POSITION  >--  ' 

1232 

0521' 

Z4 

SEX  STACX 

;  SET  :?  INITIAL  PARAMETERS 

1233 

SCAl  R6,  POSO 

1234 

0522' 

63  36 

• 

1235 

0524' 

3537' 

• 

1236 

1237 

3526’ 

E2 

SEX  STACX 

;  POLSE  Z>  RELAY  to  start 

1238 

SCAL  R6,  POLSE 

;  the  traverse 

1239 

0527’ 

63  36 

♦ 

1240 

0529’ 

0736  ’ 

♦ 

0523  ’ 

1C 

23  34Q 

:  32Q  =  Z*  Relay 

1242 

050C’ 

.4 

23  04S 

;  100  iSec.  Pulse 

r 


't. 

s 
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SSADUCT  EXT  SEQUENCER:  SDE5R9.XAC  22  3E?  s6 


.lA'i  J 

1244 

05DD' 

CO  3622' 

L3R  POSXTl 

EXIT  THE  ROUTINE 

1245 

1248 

«  6  i  / 

35E3 ' 

1 

zmcj;  SEX  irpc 

READ  YZ  POSITION  OPTO  INTERRUPTERS 

1243 

05Er 

51 

OUT  GROUP 

GROUP  30 

1249 

05E2' 

00 

3B  00 

1250 

05E3' 

F8  94 

LDI  YZPOS 

1251 

05E5' 

A7 

PLO  GPAGE 

1252 

05S6' 

SEX  GPAGE 

1253 

35E7' 

6C 

IXP  'fZ 

INPUT  Z  POSITION 

1254 

05E8' 

FA  07 

AHI  071 

Mask  null  bits  "O'  nositinn  bit 

1255 

05EA' 

E2 

SEX  STACX 

1255 

05E3' 

52 

STR  STACX 

1257 

05SC' 

OE 

LDN  ASTX 

GST  THE  ORIGIONAL  Z  '.'ALUE  FOR  TEE  ASTX 

1258 

05ED' 

PC  01 

AOI  01 

1259 

05Er’ 

F3 

XOR 

!Z  POS)  XOR  iOLD  POS  +  1! 

1260 

05F0’ 

C2  0612' 

L3Z  ZIXCOX 

I:  AT  NEXT  POSITION,  GO  TO  ZINCOX 

1261 

1262 

05?3' 

■8  19 

LDI  CYCLES 

IF  NOT: 

INCREMENT  PPC  COUNT  ONCE  PER  SEC. 

1263 

05F5' 

A7 

PLO  GPAGE 

AT  CYCLES=  01 

1264 

35F6' 

37 

LBR  GPAGE 

1265 

35F7’ 

F3  31 

XRI  31 

1266 

05F9’ 

CA  3622’ 

L3NZ  POSXTl 

EXIT  I;  CYCLES  SOT  31 

1267 

35FC’ 

F8  63 

LDI  PPCCST 

INC  PPCCNT 

1263 

35FE' 

A7 

PLO  GPAGE 

1269 

35FF' 

37 

LDN  GPAGE 

1273 

3600' 

■C  31 

AOI  31 

.<1  J  1 

3502  ’ 

STR  SPACE 

1272 

0603' 

:3  3C 

XRI  TIHEOl 

IF  PPC  COUNT  SOT  =  TIMEOl  LIMIT 

1273 

3505' 

CA  3622' 

LBHZ  POSXTl 

THEN  EXIT 

1274 

1275 

1276 

0608  ' 

E2 

IISCER:  SEX  STACX 

PULSE  Zt  RELAY  TO  STOP  TRAVERSE 

mil' 

•  Am  M 

mil  3 

3609' 

63  36 

SCAL  R6,  P'v'LSE 

* 

1279 

3603' 

3736' 

* 

1230 

360:' 

1C 

DB  34Q 

1231 

360E' 

33 

DB  08H 

1232 

36CF' 

CO  0625' 

LBR  POSERR 

1233 

1234 

0612' 

E2 

ZINCOX:  SEX  STACX 

PULSE  Z‘  RELAY  TO  STOP  TRAVERSE 

1285 

1286 

0613' 

63  36 

SCAL  R6,  PULSE 

1237 

3615’ 

3736' 

t 

1233 

0617’ 

1C 

DB  34Q 

MACRO-l) 

3.35  PAGE 

1-23 

SiADUCT 

SX7  SEQO-HCZX:  3DS5S9..'!AC  22 

SEP  36 

1239 

0513' 

08 

3B.03H 

1290 

t 

1231 

0619' 

POSQK:  SEX  STACX 

1292 

SCAL  X6,  PCSl 

.•CLEAR  PARAMETERS 

1293 

061A' 

68  36 

129i 

061C‘ 

0650'  * 

1235 

t 

1296 

061E' 

n 

POSXT2:  ISC  AS7K 

; CLEAR  OLD  EPOS  FROM  ASTX 

1297 

061?' 

CO  0000* 

L3R  ISCPPC 

;GO  TO  SET  UP  ?OS  SEXT  ??C 

1298 

* 

1239 

1300 

0622' 

CO  0000* 

POSXTl:  LBR  DECPPC 

;GO  TO  DECREMENT  PPC 

1301 

f 

*  J  J  ^ 

1303 

0625' 

?8  80 

POSERR:  LDI  ERROR 

;3ET  POSITION  ERROR  CODS  IN  ERROR  RCRD 

1304 

0627' 

A7 

PLO  GPAGE 

1305 

0628' 

07 

LDH  GPAGE 

1305 

0629' 

?9  30 

CRI  SOB 

.•POSITION  ERROR  =  BIT  7 

1307 

0623' 

57 

STR  GPAGE 

1303 

; 

1309 

062C' 

«« 

SEX  S7ACX 

; CLEAR  PARAMETERS 

1310 

SCAL  R6,  PGSl 

l**il 

0623' 

53  36 

(  «  4 

A  ^  6 

062?' 

0650'  + 

1313 

1314 

0631' 

?8  OA 

LDI  OAE 

:LCAD  ASTX  KITH  ERROR  CODE  ..StR  ?osi:i 

1315 

0633' 

5E 

STR  ASTX 

:  .lot  cianGed:  piager  »iil  clear  asd  i 

1315 

1317 

1313 

0634' 

CO  0123' 

LBS  PI.SGRX 

:SiSD  PIHGER  XYZ  ERROR  CODE  :*A’' 

1319 

1320 

. 

;***  S0BR0UTI3ES  *** 

«  A  6  A 

1322 

0637  ' 

?8  34 

PC'SO:  LDI  XYZFLG 

:  SET  XYZ  FLAG  =  AC  FOR  THIS  3E5UENCE 

A  A  ^  J 

0639' 

A7 

PLO  GPAGE 

:  (TURNS  OS  OPTO  INTERRUPTER  PBR! 

063A' 

?3  AC 

LDI  OACH 

1325 

063C' 

57 

STR  GPAGE 

1326 

J 

A  J  ^  ( 

0633' 

?8  30 

LDI  ERROR 

;  SET  ERROR  '.'ORD  MSB  =  0 

1328 

063?' 

A7 

PLO  GPAGE 

1329 

0640' 

07 

LDN  GPAGE 

1330 

0641' 

?A  7F 

ASI  7PB 

1331 

0643  ' 

57 

STR  GPAGE 

1332 

f 

1333 

0644' 

?8  63 

LDI  PPCCST 

:  SET  PPCCNT  TO  01 

1334 

0646  ' 

A7 

PLO  GPAGE 

XACRO-IS  3.36 


?AGS  1-29 


SiADUC:  EXT  3S5USNCZX:  3DE5X9.MAC  22  sS?  66 


1335 

1336 

1337 
1333 

1339 

1340 

1341 

1342 

1343 

1344 

1345 

1346 

1347 
1343 

1349 

1350 

1351 

1352 

1353 

1354 
*  *  ?  » 

1356 

1357 

1353 

1359 

1360 

1361 

1362 

1363 

1354 

1365 

1366 

1367 


364T  ?5  31 

0649'  57 

364A'  27 

064B’  :8  10 

0640'  57 


064E'  63  96 


0650'  F8  68 
0652'  A7 


00 


0653'  ;8 

0655'  57 

0656'  27 

065T  57 


3658'  ;3  34 

365A'  A7 
365B'  30 

365D’  57 


065S'  68  96 


?OSl: 


uDi  Oi 
STS  GPAGE 

DSC  GPAGE 
IDI  lOH 
STS  GPAGE 

SSET  S6 


LDI  PPCCNT 
PLO  GPAGE 
LDI  00 
STS  GPAGE 

DEC  GPAGE 
STS  GPAGE 

LDI  XYZFLG 
PLO  GPAGE 
LDI  00 
STS  GPAGE 

SSET  X6 


;  SET  SEQSAT  TO  S'u'!l  EVESY  CYCLE 
:  (EVESY  25  iSEC.i 


;SETUSN  EOSM  SU3S0UT111E 

:CLEAS  ?PC  COUNT 

;CLEAS  SEQUENCES  SATE 

;SESST  XYZ  -LAG  *  00 

ISST’JSN  FROM  SUBSO’JTINE 


xtxtitotttt  JO  Ad  -  SEDIMENT  AND  'JATES  SAMPLE  FUNCTIONS  «»«««*““«»« 
where  n  =  3-v 


1363 

3660' 

E2 

SAMIX:  SEX  STACK 

:E0  A0-A3 

1369 

3661' 

3C 

LDN  PPC 

1370 

0662' 

FA  03 

AHI  03 

;MASX  FOX  LAST 

2  BITS 

1371 

3664  ' 

C2  3000‘ 

LBX  INCPPC 

;  EO  A1  =  DOES 

NOTHING 

1372 

3667' 

•3  31 

XSI  01 

1373 

3669' 

32  76' 

BE  SEDII 

EO  A1  =  SiD. 

1  INSEST 

1374 

3663' 

FB  33 

XSI  (01  XOS  32) 

1375 

366D' 

32  7F' 

BE  SEDIS 

;  EO  A2  =  SED. 

1  RETRACT 

1376 

066?' 

FB  01 

XSI  (02  XOS  031 

1377 

3671' 

32  88' 

BE  SEDIU 

:  EO  A3  =  SED. 

1  UNLATCH  5  .520  SAMPLE  1 

1378 

0673' 

CO  0000* 

LBS  INCPPC 

1379 

1330 
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SEADUCT  EXT  SEQUENCER:  SDE5R9.NAC  22  SEP  86 


1381 

3676' 

SEDII: 

SCAL  R6,  PULSE 

; PULSE  SED.l  INSERT  RELAY 

1382 

0676' 

68  36 

+ 

1383 

3678  ' 

0736' 

r 

1384 

067A' 

06 

D3  06Q 

;  Conn.  2  -  Pin  3 

1385 

067B' 

08 

D3  08B 

;  Relay  Pod  2 

1386 

067C' 

CO  3000* 

L3R  ISCPPC 

1387 

1 

1388 

067P' 

SSBIR: 

SCAL  R6,  PULSE 

; PULSE  SED.l  RETRACT  RELAY 

1389 

067?’ 

68  86 

t 

1390 

0681' 

0736' 

+ 

1391 

0683  ' 

07 

DB  07g 

;  Conn.  2  -  Pin  7 

1392 

0684' 

03 

DB  083 

;  Relay  Pod  2 

1393 

0685' 

CO  0000* 

L3R  IHCPPC 

1394 

; 

1395 

0638' 

SEDIU: 

SCAL  R6,  PULSE 

;P';LSE  SED.l  UNLATCH,  320  SASPLE 

1396 

0688' 

68  86 

1397 

063A' 

3736’ 

+ 

1398 

068C’ 

08 

33  lOQ 

;  Conn.  2  -  Pin  6 

1399 

068D' 

08 

DB  08B 

;  Relay  Pod  2 

1400 

368E' 

CO  3000* 

L3R  INCPPC 

1401 

1403 

1404 

3591' 

E2 

SAH2X; 

SEX  STACK 

:S0  A4-A7 

1405 

3692’ 

OC 

LDN  ??C 

1406 

3693' 

?A  03 

ARI  03 

;NASK  -OR  LAST  2  BITS 

1437 

3695' 

C2  0000* 

LBZ  IXCPPC 

;  EO  A4  =  DOES  NOTHING 

1408 

3698  ' 

?3  31 

XRI  31 

1409 

069A' 

32  A9' 

n  SED21 

;  EO  A5  =  SED.  2  INSERT 

1410 

069C' 

?3  33 

XRI  101  XOR  02) 

1411 

069E' 

C2  0632' 

LBZ  SED2R 

;  EO  A6  =  SED.  2  RETRACT 

1412 

06A1' 

FB  01 

XRI  102  XOR  03) 

1413 

06A3' 

C2  0633' 

L3Z  SED2U 

;  EO  .47  =  SED.  2  UN'uATCH 

1414 

36A6' 

CO  0000* 

L3R  INCPPC 

1415 

r 

1416 

• 

1417 

36A9' 

SED2I: 

SCAL  R6,  PULSE 

; PULSE  SED. 2  INSERT  RELAY 

.4x3 

36A9' 

68  86 

♦ 

1413 

36AB' 

0736' 

♦ 

1420 

36AD' 

09 

D3  IIQ 

:  Conn.  2  -  Pin  5 

1421 

06AE' 

08 

D3  083 

;  Relay  Pod  2 

1422 

36A?' 

CO  3000* 

L3R  INCPPC 

1423 

r 

1424 

36B2' 

SED2R: 

SCAL  R6,  PULSE 

; PULSE  SED. 2  RETRACT  RELAY 

1425 

06B2' 

68  86 

+ 

1426 

36B4' 

0736' 

!i 

1 

^  1 

[  . 
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8EF  86 

•All 

3636'  3A 

33  12Q 

:  Conn.  2  -  Pia  4 

'  1 

All 

063T  08 

08  38H 

:  Relay  Pod  2 

1429 

0638’  CO  3000* 

L3X  I5C??C 

1433 

1431 

0638' 

3E020:  SCAL  R6,  FOLSE 

; PULSE  SEE. 2  'JSLATC3,  320  SAMPLE  2  RELAY 

L  1 

1432 

3633'  68  36  t 

1433 

06BD'  0736'  + 

1 

AH 

063F’  33 

OB  ng 

:  CoDB.  2  -  Pin  3 

1  1 

1435 

36Cfl'  08 

38  038 

;  Relay  Pod  2 

f  ■ 

1436 

06C1'  CO  0030* 

L3R  IXCFFC 

1431 

f  1 

1438 

t 

■ 

1439 

> 

1443 

:““•*“**  EO  A8-A3  - 

HYBRAULIC,  SUCTIOS  PUMPS  ASB  'IIEB  PORT  CLEAR  “»**»»“ 

1441 

I 

1442 

(• 

1443 

06C4’  E2 

FOKPX:  SEX  STACX 

f 

m 

1444 

36C5'  3C 

338  FPC 

1 

1445 

06C6'  FA  33 

ANI  03 

;mi  FOR  LOH  2  BITS 

}  " 

1446 

06C8'  C2  06DD' 

L3Z  EmO 

;  SO  AS  *  3Y3.RAU1::  ?m 

1441 

06C3'  FB  31 

XRI  01 

1 

1448 

36CD’  C2  j6E6' 

L3E  SFAREl 

:  E3  A9  =  3P.4RE  41 

!  1 

1449 

0630'  F:  03 

XRI  101  XCR  ;2) 

1453 

36D2'  C2  06EF' 

LBX  SOCT 

:  EO  AA  =  SUCTIOH  PUS? 

m 

1451 

0635'  ?3  01 

XRI  102  XOR  03) 

1 

1452 

0637'  C2  06F8' 

132  CLEAS 

;  EO  AB  *  CLEAS  VISH  PORT 

1453 

363A'  CO  0000* 

138  I5C??C 

1454 

1455 

0633' 

HYDRU:  SCAL  R6,  PULSE 

.•HYDRAULIC  PUMP 

H 

1456 

0630'  68  36  ♦ 

1457 

060F'  3735' 

1 

1458 

06E1'  IE 

33  36Q 

;  Cona.  6  -  Pia  8 

1 

1459 

06E2'  08 

33  08H 

;  Relay  Pod  6 

1460 

06E3'  CO  0300* 

13R  IRCFPC 

■ 

1461 

; 

1 

1462 

0636' 

SPAREl;  SCAL  R6.  PULSE 

: SPARE  41 

■ 

1463 

0636'  68  86  ^ 

1464 

06E3’  0736’  ♦ 

1 

1465 

06EA'  21 

33  41Q 

:  loan.  6  -  Pia  5 

1 

1466 

36EB'  08 

33  OSH 

;  Relay  Pod  6 

1467 

06EC'  CO  3000* 

LBR  ISCFPC 

■ 

1468 

1 

1459 

36EF’ 

SUCT:  SCAL  R6,  PULSE 

: SUCTION  PUMP 

1473 

36EF'  68  36 

1471 

36F1'  0786'  + 

1 

1 

A 

1472 

06F3'  16 

33  26g 

:  Coon.  4  -  Pia  4 

1 
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1473 

06f4' 

08 

C8S 

;  Relay  Pod  4 

1474 

06F5' 

CO  0000* 

LBR  ISCPPC 

1475 

1476 

06f8’ 

CLEAN: 

SCAL  R6,  PULSE 

; CLEAN  VIEH  PORT 

1477 

06F8' 

63  86 

+ 

- 

i47S 

06FA' 

0736' 

+ 

1479 

06FC' 

17 

D3  27Q 

:  Conn.  4  -  Pin  3 

1480 

06FD’ 

08 

03  033 

;  Relay  Pod  4 

1481 

06FE' 

CO  0000* 

LER  IHCPPC 

1432 

/ 

1433 

t 

1434 

:********  so  AC-AF  -  Flaae  Insert  and  ilitlidraw:  Recirculate  Puaps 

1435 

1436 

0701' 

S2 

FL08X: 

SEX  STACX 

1487 

0702’ 

OC 

LOI  PPC 

1433 

0703' 

:A  33 

AKI  03 

:NASX  FOR  LOU  2  BITS 

1489 

0705’ 

C2  0715 

LEE  ISSR? 

:  EO  AC  =  Insert  Fluse 

1490 

0708' 

?B  01 

XRI  01 

1491 

370A' 

C2  071E' 

LBZ  RSTRAC 

;  EO  AD  =  Retract  Fluie 

♦  1 

3703’ 

F!  03 

XRI  101  XOR  02) 

1493 

07  OF' 

C2  0727' 

L3Z  PUMPRl 

;  EO  AS  =  Recirculate  Puap  91 

1494 

t 

XRI  102  XOR  03) 

:“***  SO  AF  DISABLED  ““* 

1495 

; 

3E  PUMPR2 

;  SO  AF  =  Recirculate  Puap  *2 

1496 

0712' 

CO  3000* 

L3R  INCPPC 

1497 

; 

1493 

0715’ 

ISSST: 

SCAL  R6,  PULSE 

;  Insert  Fluae 

1499 

0715' 

63  36 

4 

1500 

1*7--  ' 

1736' 

- 

1501 

0719' 

12 

33  22g 

;  Conn.  4  -  Pin  3 

1502 

07  lA' 

03 

33  OSg 

;  Relay  Pod  4 

1503 

0713' 

CO  3000* 

L3R  ISCPPC 

1504 

1 

1505 

071Z' 

XETRAC: 

SCAL  R6,  PULSE 

;Retract  Fluse 

1506 

071S' 

63  36 

+ 

1507 

0720’ 

3736' 

* 

1508 

3722’ 

13 

33  23Q 

;  Conn.  4  -  Pin  7 

1509 

0723' 

03 

38  03K 

;  Relay  Pod  4 

1510 

3724' 

CO  0000* 

L3R  ISCPPC 

*  3  *  • 

1512 

3727' 

FUKPRl: 

SCAL  R6,  PULSE 

:XECURCOLATS  PUHP  tl 

1513 

0727  ' 

68  86 

♦ 

1514 

0729’ 

0736' 

1515 

3723' 

IF 

03  37Q 

;  Conn.  6  -  Pin  7 

1516 

072C' 

08 

OB  083 

;  Relay  Pod  6 

1517 

0723' 

CO  0000* 

LBR  IHCPPC 

1513  :  t 

I 


1 
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1519 

:?'u'MPR2:  SCAL 

15211 

;  D3  4QQ 

1531 

;  D3  OSS 

1522 

;  L3R  IHCPPC 

1523 

1524 

1525 

1525 

■tttttttittttkttit 

1527 

1528 

0730' 

OC 

FLASH!:  LD5  PPC 

1529 

0731  ' 

FA  03 

ANI  03 

1530 

0733' 

CA  0000> 

L38Z  IHCPPC 

1531 

; 

1532 

0736' 

El 

SEX  IHTPC 

1533 

0737' 

61 

OUT  GROUP 

1534 

0738' 

00 

D3  00 

1535 

. 

153S 

0739' 

66 

OUT  CAMERA 

1537 

073A' 

00 

DB  00 

1538 

• 

1539 

0733' 

?8  88 

LDI  CAMCMT 

1540 

073D' 

A7 

PLQ  CPAGE 

1541 

073S' 

07 

LDH  GPAGE 

1542 

073F' 

FC  01 

AOr  OIH 

1543 

0741' 

57 

STR  GPAGE 

1544 

; 

1545 

0742' 

CO  0000* 

LBR  IHCPPC 

1546 

1547 

1548 

1549 

:““•***“***»“  £0  D 

1550 

1551 

0745' 

OC 

RLDVX;  LDH  PPC 

1552 

0746' 

FA  03 

AHI  03 

1553 

0748' 

CA  0000< 

L3HZ  IHCPPC 

1554 

1555 

0743' 

El 

SEX  IHTPC 

1556 

074C' 

51 

OUT  GROUP 

1557 

07  4D' 

00 

D3  00 

1558 

1559 

374E' 

65 

OUT  LDVRST 

1560 

fl74F' 

00 

DB  00 

1561 

1562 

, 

1563 

0750' 

CO  0000* 

LBR  IHCPPC 

1564 

;EECESCljLATE  PUMP  il 
;  Conn.  6  -  Pin  6 
;  .2  el  ay  Pod  5 

CO  -  TA&E  a  picture  ““““““““ttittiittttttttit 
.•DECODE  ??C 
.-RSTURS  I?  MOT  CO 

:  SELECT  I/O  GROUP  0 

:  I/O  6 
;  NULL  DATA 

.•ISCREMEST  CAMERA  FRAME  COUHTE.R 


-  RESET  THE  LDV 
;DECODS  PPC 
rRETURN  IF  MOT  DO 
:SELECT  I/O  GROUP  0 

;RESET  LDV  !I/0  5) 
MULL  DATA 


i. 
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SEADUCT  EXT  SEQUESCE8;  SDE5R1.SAC  il  SE?  56 

1565 

1566  : 


1561 

ttttttttttttttt*  jQ  fn  ijaa  -  SEQOESCEX  3RASCH  OX  SfflTCE  «***»«*»*»*«»«»««««« 

1565 

*“*“  n  =  0-3, 

aaaa  =  Branch  address 

1569 

ttttii  JO  =  3otto»  Snitch,  ?1  =  Fluse  Insertion  Snitches, 

1510 

tttttt  jj  :  jlmg  Retracted  Snitch,  F3  =  IGHOREO  'Spare) 

1571 

1512 

*““*  SUSTAT  =  1 

3ot  1 _ 1 _ 1  lasO  11  Ias4  1  Ins3  1  Iasi  1  Insl  ,  ***** 

1513 

1514 

1515 

0753  ' 

f8  82 

[fSXX:  LDI  SISTAT 

;  :?  SiilTCB  nn  FOSCTIOSS 

1516 

0755' 

A7 

FLO  SFAOE 

;  LOAD  SSITCH  STATUS 

1511 

0156’ 

OC 

LDX  RFC 

1518 

0151' 

tX  03 

ASI  03 

:  DO:  IF  FPC  = 

1519 

0159’ 

C2  01 6C' 

LBE  IFBOT 

:  EO  ?0,  GO  TO  SOTTOX  SH.  ROOTIA'E 

1530 

me 

:B  01 

XEl  01 

1551 

075E' 

C2  0714’ 

LBl  IFISS 

:  EO  Fl.  GO  TO  FLUKE  INSERTION  SN  RO'JTI.XE 

1582 

0761' 

?B  03 

XRI  101  XOR  02)  ; 

1583 

0763' 

C2  017?' 

lai  IFRETR 

;  SO  F2,  GO  TO  FLUKE  RETRACTED  SJ  RGUTI.XE  llnsOi 

1534 

1535 

0766' 

1C 

iFSHXT:  ISC  FPC 

;  OTHERNISE,  EXIT 

1556 

0767' 

1C 

ISC  ??C 

1587 

0768' 

4  A 

ISC  FFC 

1588 

0769  ’ 

CO  3000‘ 

L3R  SAVPFC 

1589 

1590 

376C' 

07 

FBOT:  LDS  GPAGE 

:  I?  BOTTOK  SN,  OUS?  TO  AAAA 

1591 

076D' 

Tt 

SBL 

;  ELSE,  EXIT 

1592 

016E' 

C3  3166' 

L3HF  IFSWI 

1593 

0711' 

CO  0000* 

13R  JOSP 

1594 

1595 

0114’ 

07 

FISS:  LDS  GPAGE 

:  IF  ALL  4  ISSESTIOS  SFITCSES,  JUKP  TO  AAAA 

1596 

0715’ 

FA  OF 

ANI  OF! 

:  ELSE,  EXIT 

1597 

0777  ’ 

rB  OF 

XRI  OFH 

1598 

0779’ 

C2  0000* 

LBE  JOHP 

1599 

me 

CO  0766’ 

LBR  IFSSXT 

1600 

1601 

mr 

07 

FRETS;  LDS  GPAGE 

;  IF  FLUKE  IS  RETRACTED,  JUKP  TO  AAAA 

1602 

0780  ’ 

?A  10 

ASI  IDS 

1603 

3732’ 

C2  0766’ 

in  IFSSXT 

1604 

0785’ 

CO  0000* 

LBR  JQNP 

1605 

1606 

1607 

1608 

**“••  EO  Fn  aaaa 

-  SEQUENCER  BRANCH  OS  ACOUSTIC  SIGNAL  ***«****«**•*•**■ 

1609 

**“••  a  =  8-B, 

aaaa  >  Branch  address 

1610 

*““•  F8  s  Siq. 

A.  F9  =  Siq.  B,  FA  =  Sig.  C,  F3  =  IGNORED  ***** 

! 


] 


I 

I 

I 

I 

I 

I 

I 


▼w 
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-35 

EADUCT 

EXT  SSQUEliCEX:  SDE5X9.XAC  22  SEl 

86 

1511 

1612 

******  ACSTAT  =  : 

1  :  :  si^.c 

1613 

1614 

1615 

0788' 

F8  81 

lFAC’JX:  LDI  ACSTAT 

1515 

078A' 

A7 

PLO  GPAGE 

1517 

078e' 

OC 

LOS  PPC 

1613 

078C' 

?A  03 

AHI  03 

1619 

073E' 

C2  07  Al' 

L3I  IFACA 

:E0  F8 

1620 

0791’ 

■3  01 

XRI  01 

1621 

0793' 

C2  07A6’ 

LBX  IFACB 

;E0  F9 

1522 

0796' 

?B  03 

XJI  101  XOX  02) 

1623 

0798' 

C2  07AB' 

L32  IFACC 

:E0  FA 

1624 

1525 

Q79B' 

1C  ItACXT:  INC  ?PC 

:I?  SO  SIGNAL,  COSTIS'uE 

1626 

079C' 

1C 

INC  PPC 

1827 

079D' 

<  1* 

•  4. 

INC  PPC 

1628 

079E' 

CO  0000* 

LBR  SAVPPC 

1629 

1530 

37A1' 

07 

IFACA:  LDN  GPAGE 

;IF  SIGNAL  A 

1631 

37A2’ 

?A  01 

ANI  01 

1632 

07A4' 

30  30' 

3R  IFAC? 

1533 

1534 

07A6' 

07 

IFACS:  LBN  GPAGE 

;IF  SIGNAL  3 

1535 

37A7' 

•A  02 

ANI  02 

1535 

07X9' 

30  30’ 

3E  IFAC? 

1537 

1533 

07AB’ 

07 

IFACC:  LBN  GPAGE 

;IF  SIGNAL  C 

1539 

37AC' 

?A  04 

ANI  04 

1640 

37AE' 

30  30' 

3R  IFAC? 

1641 

1542 

0730' 

CA  0000* 

IFAC?:  LBHZ  JOB? 

;JUHP  TO  aaaa  I?  SIGNAL 

1643 

0733' 

CO  0793' 

L3R  IFACXT 

;IF  SOT,  GO  TO  NEXT  PPC 

1544 

1645 

1646 

1647 

ttttitttttttit  200  aSSC.  .XELAi  PULSE  SUBROUTINE 

1543 

1549 

0736' 

r8  42  POL3E;  LDI  PBLSON 

1550 

0733' 

A7 

PLO  GPAGE 

1651 

0739' 

46 

LBA  LIST 

:Get  Relay  Brivei  f  froi 

1652 

073A’ 

E7 

SEX  GPAGE 

1853 

0733’ 

73 

'TXD 

;Store  Relay  Driver  4  at 

1654 

07BC' 

46 

LBA  LIST 

;Get  Pulse  tiae  froi  LIS 

1555 

0730' 

73 

STXB 

;Set  Pulse  tiae  counter 

1656 

07BE' 

F8  AC 

LBI  OACH 
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1557 

07C0’ 

57 

STR  GPAGE 

;Set  Pulse  Flag  =  AC  (active! 

1658 

07C1' 

E2 

SEX  STACX 

1659 

SRET  R6 

:Return  froi  this  routine 

1660 

07C2' 

68  96 

+ 

1661 

; 

1662 

1663 

1664 
1565 
1666 
1667 
1663 


END  OF  EXTENDED  SEQUENCER  FUNCTIONS  tutttttttttttttttt 


ttttHttttttttttxtttttttttttttttttttttlilLittttttttttttttttitttttttttttittt 

END 


T 


W 


'^ffwrnrr 


\ 
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SEADUC!!:  EXT  SEQL'ZNCEX:  SDS:X3.XAC  22  3Z?  36 


SACSOS: 

3CI 

3X1 

V.ALL 

CID 

DADI 

33NZ 

3SAV 

3331 

ETQ 

EXIT 

GEC 

IDLE 

RL3I 

RLXA 

RSX 

RSXD 

3?K2 

3RZ7 

STM 

STPC 

SYKZOLS: 

ACsTAT 

0031 

AD638 

0031 

ADGH3 

0083 

A3G34 

003E 

ADOX 

0030' 

ADRE3 

008F 

ADT0L4 

00A8 

ADT1H8 

0095 

A2T2L4 

0093 

ADT338 

0099 

A2T4L4 

009C 

ADT5H8 

Q09D 

ADT6L4 

OQAO 

AD773e 

OOAl 

A278I,4 

00A4 

ADT9H8 

00A5 

ARIO 

0013 

ARIOO 

OOIA 

ASTRHI 

0064 

A3TELO 

0065 

ATHFLG 

OOIF 

3A71 

0002 

3ATT 

0100' 

3A771 

0114' 

3ATTSY 

0010' 

3AT7SY 

008C 

3L7 

0000 

3R2CST 

007D 

3:z?G 

00:3 

CAMCST 

0088 

CXPASS 

0002 

CMPSS 

0064 

CJ7XL3 

0007 

CRCHI 

0006 

C7AHI 

306C 

C7AL0 

006D 

CTBHI 

0070 

CTBLO 

0071 

CTCHI 

0074 

C7CL0 

0075 

CYCCST 

0003 

CYCLES 

0019 

3100 

0010 

3ATA1 

0002 

DEC??C 

3623‘ 

3NA 

3000 

Z7X 

0003 

EXPXUN 

OOOF 

?LAG3 

006A 

FLAGC 

0063 

•lUM 

OOAC 

FLUMX 

0701' 

G? 

5000 

GPAGE 

u3G7 

31 

0014 

310 

0013 

HDGEXP 

003F 

:DGFLG 

00B3 

3DGVAL 

0020 

3EADXG 

0004 

3Y3SU 

0633' 

32 

0023 

IFACS 

07A6' 

IFACC 

07AB' 

IJACXT 

0753' 

IF307 

076C' 

IFS'J 

OOFO' 

IFS3X 

0753’ 

ISSR7 

0715' 

ISTCRL 

F840 

:X7?G 

Q0F8 

ISTPOL 

F840 

ICA 

0006 

lOCLR 

3004 

lOSTAT 

0006 

J'JKP 

07B1‘ 

1137 

0006 

HI 

0016 

SEMPTR 

OOAE 

HOX 

0002 

PC 

0003 

PDSTA7 

0083 

DACl 

DADC 

DADD 

3SH 

D3MB 

Dsm 

DTC 

LDC 

POP 

PPAGE 

P0S3 

SCAL 

scm 

SCX2 

SPNl 

TCAL 

TRET 

XID 

XIE 
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The  following  BASIC  program  converts  Intel  HEX  format  object  code  files 
created  by  the  Syscon  assemblier  -  linker  to  RCA  file  format.  In  this 
version,  the  HEX  file  resides  on  a  ram  disk  called  drive  11.  This  must  be 
changed  for  use  in  other  systems.  The  M  drive  is  specified  on  lines  40  and  80 
of  the  program. 

10  'Program  to  read  .HEX  file  from  the  M:  drive  and  write  a  .RCA  file. 

20  'W.  Terry,  A.  Bradley  -  1986 
30  'This  section  selects  input  file 
40  GS=”M:*.*" 

50  FILES  GS 

60  PRINT'TILE  TO  READ?  (must  be  M : nnnnna . HEX ,  just  input  without  extension)" 
70  INPUT  F$ 

80  FS="M:"+F$ 

90  PRINT  F$+".HEX";"  OK?";:INPUT  Y$ 

100  IF  Y$<>"Y"  GOTO  60 
110  ' 

120  'Now  open  the  .HEX  and  .RCA  files 
130  OPEN  "I",#1,FS+".HEX" 

140  OPEN  "0",#2,F$+".RCA" 

150  R$*"!M  " 

160  ' 

170  'Read  a  line  at  a  time  and  translate 
180  INPUTil,  L$  'get  Intel  line 
190  L=LEN(LS) 

200  NS=MID$(L$,2,2)  'get  length  in  hex 
210  HS=NS:GOSUB  500  'convert  HEX  byte  to  DEC 
220  IF  H=0  GOTO  280 
230  PRINTI2,  RS+";" 

240  A$=MID$(LS,4,4) 

250  D$=MID$(L$,10,2*H) 

260  R$=A$+"  "+DS 
270  GOTO  170 
280  '  Print  final  line 
290  PRINTi2,  R$ 

300  RESET  'close  disk  files 
310  SYSTEM 
320  STOP 
330  ' 

500  '  Convert  H$  in  hex  to  H  in  dec. 

510  '  Convert  R$  in  hex  to  H  in  dec 

520  H-ASC (RIGHTS {H$,l)) -48 

530  IF  H>9  THEN  H»H-7 

540  Hl^ASC (LEFTS (H$,l)) -48 

550  IF  HI >9  THEN  Hl=Hl-7 

560  H-H+16*H1 

570  RETURN 
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Appendix  E 

Sea  Duct  Monitor  Cyclic  Redundancy  Check  (CRC) 

Calculation  of  a  CRC  checksum  over  a  block  of  memory  is  reputed  to  be  the 
remainder  from  a  division.  The  entire  data  block  is  divided  by  a  special  16 
bit  constant  and  the  CRC  is  the  remainder.  The  constant  is  chosen  such  that 
the  probability  of  a  random  change  in  the  data  block  giving  the  same  CRC  value 
is  minimal. 


The  procedure  is  as  follows: 

1.  Set  the  16  bit  CRC  variable  to  zero. 

2.  Call  the  CRC  subroutine  and  give  it  the  first  byte  of 
the  data  block.  The  subroutine  will  modify  the  CRC. 

3.  Call  the  CRC  subroutine  again,  this  time  passing  it 
the  next  data  byte.  Repeat  this  until  you  have  given 
it  all  the  bytes  in  the  block. 

4.  The  final  CRC  is  now  valid  for  the  data  block. 


The  CRC  subroutine 
Variable  use: 

B  s  data  byte  passed  in  the  call 
CH  =  high  byte  of  the  16  bit  CRC 
CL  =  low  byte  of  the  16  bit  CRC 
S  =  a  scratch  byte 

1.  S  =  B  XOR  CH  :Constants  shown  base  16 

2.  S  =  (S/16)  XOR  S  :Integer  arithmetic 

3.  CH=  CL  XOR  ((S*16)  mod  256)  :mod  256  arithmetic 

4.  CH=  CH  XOR  (S/8) 

5.  CL=  S  XOR  ((S*32)  mod  256) 

R.  Return  from  subroutine 


Notice  that  this  can  be  done  easily  in  8  bit  machine  code  using  logical 
shifts  and  XOR. 

Debug  Test;  The  CRC  over  a  string  of  0  bytes  stays  0.  The  CRC  over  the 
four  bytes  11  22  33  44  is  DD33.  The  CRC  over  the  string  00  01  02  03  04  05  06 
07  08  09  OA  OB  OC  OD  OE  OF  is  513D. 
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Appendix  F 

Radio  Shack  TRS-80  Model  100  Communication 
with  SAIL  and  MCALL 


To  use  the  Radio  Shack  Hod. 100  with  MCall: 

Set  MCALL  to: 

Echoplex,  2400  Baud,  X-ON/X-OFF, 

7  Data,  Even  Parity,  1  Stop  bit 

For  two  way  communication: 

Get  the  M-lOO  running  in  TELCOM, 

M-lOO  status  =  67E1D,  Half  Duplex 

To  send  a  file  to  the  M-lOO: 

Set  the  M-lOO  to  half  duplex  (see  above) 

Enter  the  text  mode  for  a  new  file  and  name  the  new  file. 
To  replace  an  existing  file,  enter  the  text  mode  by 
running  the  file  name,  then  clear  the  file. 

MCALL  -  Use  {esc.)F  to  name  the  file  to  send. 

MlOO  -  Use  "LOAD"  -  Load  from  C0M:67E1D 
MCALL  -  Use  (esc.)T  to  send 

To  send  a  file  to  MCALL: 

Set  the  M-lOO  to  half  duplex  (see  above) 

Enter  the  text  mode  by  running  the  file  name. 

MCALL  -  Use  (esc.)F  name  the  file  to  receive. 

MCALL  -  Use  (esc.)R  to  receive  the  file. 

MlOO  -  Use  "SAVE"  -  Save  to  C0M:67E1D 


To  use  the  Radio  Shack  M-lOO  with  SAIL: 

(Assumes  300  Baud,  7  data.  Even  Par.,  1  Stop,  RCA  format): 

For  two  way  communication: 

Get  the  M-lOO  running  in  TELCOM, 

M-lOO  status  =  37E1D,  Full  Duplex 

To  send  a  file  to  a  SAIL  instrument: 

Set  the  M-lOO  to  full  duplex  (see  above) 

Enter  the  text  mode  by  running  the  file  name. 

MlOO  -  Use  "SAVE"  -  Save  to  C0M:67E1D 

(Assumes  a  !M;  at  the  start  of  the  file.) 
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Appendix  6 

Electrochen  Lithium  Battery  Warning 

The  page  copied  below  is  included  with  the  Lithium  batteries  supplied  by 
Electrochem  Industries,  Inc.  These  batteries  are  used  in  the  microprocessor 
and  emergency  hydrostatic  release  systems- 


€»ecifoe»»«<n  irymrtinmg  ►«€ 

9990  W«wi«  Ofw* 

0«f«nc«.  mm  YoiH  14031 

71S-7SO-2M6  TLX9l.3i6 


LITHIUM  BATTERY 


WARNING:  fire,  explosion  and  severe  burn  hazard, 

DO  NOT  SHORT  CIRCUIT,  CHARGE.  FORCE  OVER-DISCHARGE, 
DISASSEFBLE,  CRUSH,  PENETRATE,  INCINERATE,  HEAT 
ABOVE  72°  C  (162°  F),  OR  battery  may  leak  OR  EXPLODE 


CELLS  MAY  BECOME  SHORT  CIRCUITED  BY  ALLOWING  A  CONDUaiVE 
(MeTACLIC.  ETC.)  MATERIAL  TO  COME  IN  CCNTAa  WITH  THE  LEADS. 

CELLS  MAY  SWELL  AND  LEAK  WHEN  OPERATED  AT  BOTH  MAXIMUM 
RATED  CURRENT  AND. MAXIMUM  RATED  TEMPERATURE. 


FORM  NO. 3-3000/0683 
REV.  D 


G-1 


Appendix  H 

Sea  Duct  Pump  Controller  Program  Listing 


H-1 


2500  A.D.  5301  CROSS  iSSSilBLSR 


vsssics  3.015 


I3PUT  FILEJiME  :  SDPaBPl.ASB 
CDTPOT  FILESABE  :  SDPOBPl.OBJ 


1 

6 

1 

4 

5 


TITLE  SDPOBPl..ASa  '  SEA  DUCT  -  5301  SAIL  PUBP  CONTROLLER 
SUBTITLE 

A.  Bradley,  U.  Terry 


Rev.  24  BAR  35  X  CQBBASD  CLEARS  RECISTERS. 
05  BAR  85  First  versioQ. 


9 

10 

11 

12 

13 

14 

15  0000 


SAIL  portion  interrupt  driven  by  SCI 

PARITY  SEEBS  TO  BORE,  BUT  THE  ?BF000  1000  SERBS  TO 

RAHG  BITH  THE  BAC  .AT  9600,  GET  BETTER  TERBINAL? 


RADIX  H  :SET  HEX  DEFAULT 
CODE 

ABSOLUTE 


4  I 
18 
19 


20 

00 

00 

DDRl; 

SQU 

3 

21 

00 

91 

DDR2: 

ECU 

1 

22 

30 

02 

PORTl: 

sgu 

2 

;btk.x.J.x:i.i.?2  .  ?i; 

23 

Iflp.  .ebl.etli 

*  *1 

25 

00 

33 

PCRT2: 

EQU 

3 

;X.X..\!SD0.3DI.SCXITCUT.!IN1 

25 

: 

■lode  1  serial  :  tiaer  , 

11 
« > 

00 

04 

DDRl; 

SQO 

4 

28 

00 

05 

ODX4: 

EQU 

5 

29 

00 

05 

PORTl: 

SQO 

5 

puap  1  pover  tsntrnl 

30 

00 

07 

?flRT4: 

EQU 

puap  2  psHer  cnncrnl 

31 

00 

08 

TCSR; 

EQU 

98 

;  IC?  .OCF  .TOP SICI .  ECCI .  ETCI '  lEDG .  CLVL 

32 

; 

1  int  flags  :  int  lasAs  .  in 

33 

00 

09 

COURTHI: 

EQU 

99 

Counter  HI  ilsti 

34 

00 

OA 

COOBTLO: 

EQU 

9A 

LO  i2ndl 

35 

00 

OB 

CCBPARHI: 

EQU 

9B 

Out  toipare  HI 

35 

00 

OC 

COBPARLO: 

EQU 

SC 

LO 

37 

00 

OD 

CAPTURHI: 

EQU 

SO 

Input  Capture  HI 

38 

00 

OE 

CAPTURLO: 

EQU 

SE 

LO 

39 

00 

OF 

P3CSR: 

SQO 

SF 

PORT3  C/S  REG 

40 

00 

10 

TRBCR: 

EQU 

910 

XFR  RATE  k  BODE  CONTROL 

41 

; 

;x.x.x.aiCCl.CC0.SSl.SS0l 

42 

00 

11 

TRCSR: 

EQU 

$11 

T/R  CONTROL  k  STATUS  REG 

43 

; 

IRDRF.ORFE.TDRE.RIE.RE.TIE.TE.BOl 

44 

00 

12 

.  RECD: 

EQU 

912 

REC’D  DATA 

45 

00 

13 

XDAIA: 

EQU 

$11 

XBIT  DATA 

45 

00 

14 

RABCOI: 

EQU 

$14 

iSTOBY  PIR.RABE.x.x.z.x.z: 

47 

48 


;  SAIL  inteface  RAB  lorkspace 


SDPWl.m  -  in  DUCT  -  6301  SAIL  PUKP  COHTROLLER 


't 

V 

V 


49 

90  80 

XJDSP: 

EQU 

$80 

JUMP  IBST  OOES  BEBE. 

50 

00  81 

X7BCT: 

SQO 

$81 

31 

51 

: 

$82 

LC 

52 

00  33 

XJOSP: 

EQU 

$83 

EMIT  JUMP  IBST 

52 

00  84 

XVECT: 

EQU 

$84 

HI 

54 

; 

$85 

LO 

55 

00  35 

J0MP2: 

EQU 

$86 

2SD  JUMP  IBST 

56 

00  37 

VECT2; 

EQU 

$87 

HI 

57 

; 

$88 

LO 

58 

00  89 

SCRTCBl: 

EQU 

$89 

SCRATCH  LOC  i 

59 

00  ik 

SCRTCH2: 

EQU 

$8A 

SCRATCH  LOC  2 

50 

00  88 

SCRTCH3: 

EQU 

$81 

SCRATCH  LOC  3 

6! 

00  8C 

SCXTCB4: 

ECU 

$8C 

SCRATCH  LOC  4 

52 

00  3D 

SCRTCB5: 

EQU 

SSD 

SCRATCH  LOC  5 

54 

00  3E 

3M0DE: 

EQU 

S8E 

SAIL  3REAR  MODE 

55 

; 

IbrA.x.x.xlx.x.x.x; 

55 

; 

;flg.  : 

57 

00  3P 

STATUS: 

EQU 

S8F 

REPLY  STATUS 

59 

?i! 

71  00  30 

'  it 

'.I 

■*  « 

.  % 

^6 


;  jeneial  vorkspace 

POmP:  ECO  S90  ;?U»P  ADDJESS 

$91 

'ttttttttifttttttttttttttttttttttttttttttitttkttKtttitittttttt 


’5 

FOOO 

ORG 

SFOOO 

ASSUME  32X  EPROM 

;  SAIL  Address  stared  Mere.. 

73 

POOO 

23  50  43 

AODR; 

08 

'4PC' 

SAIL  ADDRESS 

'9 

•003 

00 

DB 

$00 

TSRMIKATCR 

30 

81 

F004 

00  00  00  00 

38 

$00, $00, $00, $00  :SPACE  FOR  LCBG  ADDRESS,. 

83 

:0fl8 

8E  00  Ff 

START: 

LDS 

fSOOFF 

SET  STACX  ?0:,VTER 

84 

Fooa 

86  7F 

LDAA 

l$7F 

PREP.\RE  PORT  1 

85 

FOOD 

97  00 

STAA 

DDRl 

AS  OUTPUT  illTH  MSB  AS  BREAX  DETECT 

36 

FOOF 

86  00 

LDAA 

tsoo 

•AMD  DISABLE  PUMPS 

87 

Foil 

86  12 

LDAA 

»S12 

PREPARE  PORT  2 

88 

P013 

97  01 

STAA 

DD82 

FOR  FUTURE  TIMER  USE 

89 

F015 

86  FF 

LDAA 

iSFF 

PREPARE  PORT  3 

90 

F017 

97  04 

STAA 

DDR  3 

AS  PUMP  1  COBTRCL 

91 

F013 

7F  00  05 

CLR 

PCRT3 

ABD  CLEAR 

92 

FOIC 

86  FF 

LDAA 

4$FF 

PREP  PORT  4 

93 

FOIE 

97  05 

STAA 

DOR4 

AS  PUMP  2  CONTROL 

94 

F020 

7F  00  07 

CLR 

FORT4 

,4ND  CLEAR 

95 

; 

96 

F023 

OF  00  89 

CLR 

SCRTCHl 

USE  AS  SAIL  MODE  FLAG  4  ADDR  POINTER 

97 

F026 

86  7E 

LDAA 

f$7E 

MUST  WITE  JM?  ISSTS. 

98 

F928 

97  80 

STAA 

RJUMP 

FOR  SAIL  DRIVER 

99 

P02A 

97  83 

STAA 

XJUMP 

100 

F02C 

97  86 

STAA 

JUMP  2 

101 

,ME 

CC  F9  78 

LDD 

tSETUMAD 

:SET  VECTORS  TO  INITIAL  VALUES 

102 

F031 

DO  81 

STD 

RVECT 

103 

F033 

DD  84 

STD 

XVECT 

104 

; 

105 

F035 

86  04 

LDAA 

tS04 

EHASLE  ETOI  (TIMER  OVERFLOH  INTERRUPT 
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106 

F037 

97  08 

STAA 

TCSR 

107 

F039 

86  OC 

LDAA 

4S0C  ;£XTERNAL  CLOCK 

lOS 

F03B 

97  10 

STAA 

TRHCR 

109 

F03D 

86  lA 

LDAA 

HSU  :  SET  RE  TE  RIE  TO  INIT  SERIAL  4 

110 

F03F 

97  11 

STAA 

TRCSR  :ALLO»  SERIAL  INTERRUPTS  FOR  REC  NON 

111 

; 

112 

F041 

86  2A 

LDAA 

113 

F043 

97  8F 

STAA 

STATUS  : INITIALIZE  STATUS 

111 

F045 

7F  00  8E 

CLR 

BNODE  :AND  NODE  FLAG 

115 

116 

F048 

OE 

CLI 

;AND  ALLOl  INTERRUPTS 

117 

F049 

lA 

DOZE:  SLP 

; SLEEP  BETHEEN  INTERRUPTS 

118 

F04A 

20  FD 

BRA 

DOZE  ;TO  NINANIZE  POIER  DRAIN 

119 

121 

;  HELP  FILE 

122 

LIST  OM 

123 

F800 

ORG 

SFSOO 

124 

F800 

6C  70  OD  OA 

HELPFIL:DB 

’lp’,S0D,S0A 

125 

F804 

4D  6F  6E  69 

DB 

'Nonitor  Couands  (enter  via  _  or  ?  er  i!',S0D 

F808 

74  6F  72  20 

F80C 

43  6F  6D  6D 

F810 

61  6E  64  73 

F814 

20  28  65  6E 

F818 

74  65  72  20 

F81C 

76  69  61  20 

F820 

5F  20  6F  72 

F824 

20  3F  20  6F 

F828 

72  20  21  29 

F82C 

00  OA 

126 

F82E 

20  5F  20  28 

DB 

’  (space)  eater  lonitar*' .SOD.SOA 

F832 

73  73  61  63 

F836 

65  29  20  65 

F83A 

6E  74  65  72 

F83E 

23  6D  6F  6E 

F842 

69  74  6F  72 

F846 

2A  OD  OA 

127 

F849 

20  3F  4D  61 

DB 

’  ?Naaa3.1111cr  •'.SOD.SOA 

F84D 

61  61  61  5F 

F851 

6C  6C  6C  6C 

F855 

63  72  20  2A 

F859 

OD  OA 

128 

F85B 

20  21  4D  61 

DB 

'  !R3aaa_dd...cr  ‘'.SOD.SOA 

F85F 

61  61  61  5F 

F863 

64  64  2E  2E 

F867 

2E  63  72  20 

F86B 

2A  OD  OA 

129 

F86E 

20  20  77  69 

DB 

'  with  all  RCA  UT4  consentions' .SOD.SOA 

F872 

74  68  20  61 

F876 

6C  6C  20  52 

F87A 

43  41  20  55 

F87B 

54  34  20  63 

F882 

6F  6E  76  65 

F816 

6E  74  69  6F 

F88A 

6E  73  OD  OA 

130 

F88E 

43  6F  6E  74 

DB 

'Control  Couands '.SOD.SOA 

F892 

72  6F  6C  20 
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F896 

43 

6F 

60 

60 

P89A 

61 

6E 

64 

73 

F89E 

OD 

OA 

131 

F8A0 

20 

21 

50 

31 

OS 

■  IPlhli,  ,) 

»2!!l!_  set  puap  pover  to  ii  SOD.SOA 

F3A4 

68 

68 

5F 

20 

F8A8 

2C 

21 

50 

32 

F8AC 

68 

68 

5F 

20 

F8B0 

73 

65 

74 

20 

F8B4 

70 

75 

60 

70 

F8B8 

20 

70 

6F 

1  1 

F8BC 

65 

72 

20 

74 

F8C0 

6F 

20 

68 

68 

F8C4 

20 

2A 

00 

OA 

132 

F8C8 

20 

3F 

50 

31 

OB 

’  ?P1  ,  ?P2 

sbous  current  puip  setting  SOD.SOA 

F8CC 

20 

2C 

20 

3F 

F8D0 

SO 

32 

20 

73 

F8D4 

68 

6F 

77 

73 

F8D8 

20 

63 

75 

72 

F8DC 

72 

65 

6E 

74 

F8S0 

20 

70 

75 

60 

F8E4 

70 

20 

73 

65 

F8E8 

74 

74 

69 

6B 

F8EC 

67 

20 

2A 

00 

F8F0 

OA 

133 

F8F1 

20 

58 

20 

28 

SB 

'  X  iiay  be 

‘PCX  only)  laieadiate  Siutdcun' , SOD.SOA 

F8F5 

6D 

61 

79 

20 

F8F9 

62 

55 

20 

7E 

F8PIJ 

50 

43 

58 

20 

F901 

5F 

oE 

5C 

79 

F9fl5 

29 

20 

49 

60 

F909 

60 

65 

61 

64 

F90D 

69 

61 

74 

65 

F911 

20 

53 

68 

75 

F915 

74 

64 

6F 

7** 

1  1 

F919 

6E 

00 

OA 

131 

F91C 

OD 

OA 

OB 

SOD.SOA 

135 

F91E 

20 

2A 

20 

72 

OB 

'  •  returns 

proupt  ' 

F922 

65 

74 

75 

72 

F926 

6E 

73 

20 

70 

F92A 

72 

6F 

60 

70 

F92E 

74 

20 

136 

F930 

00 

00 

OB 

SOO.SOO 

rTERBLYATOR 

A  J  f 

138 

:  SCI  IHTERRUPT  HAHDLER  iSAIL  DRIVER  1 

139 

F932 

7B 

40 

11 

SCISTRTiTIS 

4S40,TRCSR 

:TEST  ORFE 

110 

F935 

27 

03 

BEQ 

CRC8AR 

141 

LIST  OFF 

142 

F937 

96 

12 

LOAA 

RECD 

tread  BAD  CHAR  TO  CLEAR? 

143 

F929 

3B 

SCIXIT:  RTI 

:  6  EXIT 

144 

: 

145 

r93A 

7B 

80 

11 

CRCHAR:  TIK 

4$80,TRCSR 

:TEST  DA 

146 

F93D 

26 

03 

BEE 

REAOD 

tIF  EOT.  XSIT 

147 

F93F 

7E 

FC 

10 

JEF 

CIECRX 

148 

: 

149 

F942 

96 

12 

REAOD:  LOAA 

RECD 

tread  data  to  a.. 

150 

F944 

16 

TAB 

tAID  COPY  TO  B 

151 

F945 

CE 

FO 

66 

LO! 

♦PARITY 

tpoiet  parity  table 
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152 

F948 

3A 

m 

POINT  INTO  PARITY  TABLE 

153 

F949 

E6  00 

LOAB 

o.x 

GET  PARITY  NORD 

154 

F94B 

26  EC 

3HE 

SCIXIT 

REJECT  IF  SOT  EVEN  PARITY 

155 

F94D 

84  7F 

A8DA 

8S7F 

ELSE  REMOVE  PARITY  FOR  SOBSEgOEST 

156 

F94F 

16 

TAB 

(ALSO  COPY  TO  B) 

157 

f950 

C8  23 

EORB 

8‘*’ 

IS  IT  '8'? 

158 

F952 

27  03 

BEQ 

GOTSOS 

159 

f954 

7E  00  30 

JKP 

RJOSP 

ELSE  CO  THRO  VECTOR 

160 

: 

161 

;  SAIL  AODRESS 

RECOGSIZE  SECTION 

162 

F957 

C6  01 

GOTHUM:  LOAB 

801 

GOT  8  CODE 

163 

F959 

07  89 

STAB 

SCRTCHl 

SET  SAIL  FLAG  TO  01 

164 

F95B 

71  FB  11 

AI8 

PSFB.TRCSR 

OFF  XMIT  IF  REQ'D? 

165 

F95E 

CC  F9  66 

LOO 

8READAO 

POINT  READ  ADDRESS 

166 

F961 

DO  81 

STO 

RVECT 

157 

F963 

7E  F9  39 

JKP 

SCIXIT  :AND  EXIT 

168 

; 

169 

F966 

06  89 

REAOAO:  LOAB 

SCRTCHl 

GET  SMODE  COUNT 

170 

F968 

Cl  01 

C8PB 

8S01  :IS  THIS  THE  FIRST  CHAR? 

171 

F96A 

26  04 

BSE 

TRTADD 

172 

F96C 

81  30 

CSPA 

8'0’  :IF  FIRST,  IS  IT  'O'? 

173 

F96E 

27  2E 

BEQ 

TSTBAOD 

IF  SO,  NAY  BE  BAUD  SNITCH 

174 

; 

;CONTIHDE  ON  BELOi... 

175 

F970 

CS  FO  00 

TRYAOD:  LOX 

lADDR 

ELSE  POINT  X  TO  ADDR 

176 

F973 

3A 

ABX 

:ADD  TO  X 

177 

F974 

A1  00 

CSPA 

0,X  :C0HPARE  lEH  CHAR  TO  A 

178 

179 

F976 

27  13 

BEQ 

NEXTAO  :I?  NATCH,  LOOX  FOR  NEXT  CHAR 

130 

F978 

CC  F9  70 

SETOHAO:LDD 

80NA0DR  :ELSB  SET  ONADORESS  STATE 

181 

F97B 

00  81 

STO 

RVECT 

182 

; 

183 

F97D 

7F  00  89 

'JNAODR:  CLR 

SCRTCHl 

CLEAR  SAIL  MODE  TO  00 

184 

F980 

71  FB  11 

AIM 

PSFB.TRCSR 

STOP  XMIT  INTRPTS 

185 

F983 

CC  FC  19 

LOO 

tXPASS 

SET  XNIT  VECTOR  TO  PASS 

186 

F986 

00  34 

STO 

XVECT 

137 

F988 

7E  F9  39 

J8P 

SCIXIT 

188 

; 

189 

HEXTAO: 

IHX 

:PQIST  NEXT  ADD  CHAR 

190 

F98C 

7C  00  89 

ISC 

SCRTCHl 

16  INC  COUNTER) 

191 

F98F 

60  00 

TST 

fl.X 

TEST  IT, 

192 

F991 

27  03 

BEg 

GOTADDR 

TERMINATOR? 

193 

F993 

7E  F9  39 

JgP 

SCIXIT  rSLSE  SANE  VECTOR 

194 

; 

195 

F996 

CC  FA  15 

GOTAOOR:LOO 

8C0HC5AR  :REC  CONTROL  CHAR  NEXT.. 

196 

F999 

00  81 

STD 

RVECT 

197 

F99B 

7E  F9  39 

JSP 

SCIXIT 

198 

; 

199 

;  TEST  FOX  BAOO  CHARGE  COHHAHO 

200 

F99E 

CC  ?9  A6' 

TSTBAOD:LOO 

8BA003 

201 

F9A1 

00  81 

STD 

RVECT 

202 

F9A3 

7E  F9  39 

JSP 

SCIXIT 

203 

; 

204 

F9A6 

81  30 

BAOD2:  CSPA 

8'0'  ;G0T  SECOIO  0? 

205 

F9A8 

27  03 

BEQ 

BAUD3 

206 

F9U 

7g  F9  78 

JSP 

SETOIAD 

207 

: 

208 

F9AO 

CC  F9  BA 

SADD3:  LOO 

8BA0D4  :HERE  IF  GOT  800  IBAOO  CHANGE) 

;HEIE  IP  GOT  POO  IBAUD  CHAEGE) 
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■  209 

f9B0 

DD 

81 

STD 

RVECT 

1  210 

F9B2 

CE 

00  89 

LDX 

fSCRTCai  : POINT  TO  5  CHAR  BUFFER 

211 

F9B5 

DF 

37 

STX 

VSCT2  iSAVE  AT  7ECT2 

_ 

H  ^11 

F9B7 

7E 

F9  39 

JMP 

SCIXIT 

■  214 

F9BA 

DE 

37 

3AUD4:  LDX 

'/ECT2  :GET  POINTER 

215 

F9BC 

81 

20 

CSPA 

r  '  :IS  IT  SPACE? 

1  216 

F9BE 

26 

02 

BKE 

JAUD5 

■  217 

F9C0 

86 

30 

LDAA 

t'O' 

..CHAO  O'S 

213 

F9C2 

A7 

00 

BAUD5:  STAA 

0,X 

STORE  CHAR 

1  219 

F9C4 

08 

IBX 

ADVANCE  POINTER 

1  220 

F9C5 

8C 

00  8E 

CPX 

lSCRTCHl+5 

PAST  END  OF  5  CHAR  BUFFER? 

221 

F9C8 

27 

05 

BEQ 

BAUD6 

_  222 

F9CA 

DF 

37 

STX 

VECT2  ;IF  NOT  DONE,  SAVE  POINTER 

1  223 

F9CC 

7E 

F9  39 

JKP 

SCIXIT  ;AND  GET  MORE 

■  224 

; 

225 

F9CF 

DE 

8C 

BAUD6:  LDX 

SCRTCHl+3 

GET  LAST  TIO  CHARS 

1  226 

F9D1 

3C 

30  30 

CPX 

8S3030  :ARE  LAST  TIO  CHARS  BOTH  0? 

1  227 

F904 

26 

31 

BIE 

lAITBRX  :IF  NOT  VALID,  SET  DP  TO  lAIT  FOR  BREAX 

228 

: 

m  229 

:  IF  LAST  TIO  CHARS  ARE  00,  CHECX  BUFFER  A5AINST  DATA  TABLES  FOR  A  HATCH 

1  230 

F9D6 

CC 

FA  QE 

LDD 

8BAODTBL  :SET  DP  TABLE  POINTER 

231 

F9D9 

DD 

87 

STD 

VECT2 

AID  STORE  IN  JOMP2  VECTOR 

232 

: 

■  233 

;  TRY  EACH  TABLE  SEPARATELY,  00  AS  1ST  CHAR  SI9HALS  EHD  OF  TABLE 

■  234 

F9DB 

DE 

87 

BTRY:  LDX 

VECT2 

GET  TABLE  POINTER 

235 

F9DD 

A6 

90 

LDAA 

0,X 

AND  TABLE  ELEMENT 

■  236 

F9DF 

27 

26 

BEg 

lAITBRK 

IF-OO,  IAS  NO  MATCH,  IAI7  FOR  BREAX 

1  237 

: 

238 

:  COMPARE  BUFFER  KTH  OHE  TABLE  ENTRY 

■ 

F9E1 

CE 

00  89 

LDX 

8SCRTCH1 

INIT  BUFFER  POINTER  TO  TOP 

■  240 

F9E4 

DF 

84 

STX 

XVECT 

6  SAVE  IN  XMIT  JUMP  VECTOR 

■  241 

;  COMPARE  EACH  CHARACTER 

242 

F9E6 

DE 

34 

COMPARE: LDX 

XVECT 

GET  BUFFER  POINTER 

1  243 

F9E8 

A6 

00 

LDAA 

o,x 

TO  GET  BUFFER  CHAR  TO  A 

■  244 

F9EA 

08 

INX 

INX  BDF  POINT  VHILE  lE'RE  HERE 

245 

F9EB 

DF 

84 

STX 

XVECT 

i  SAVE.. 

■  246 

F9ED 

DE 

87 

LDX 

VECT2 

NON  GET  TABLE  POINTER 

1  247 

F9EF 

A1 

00 

CMPA 

0,X 

6  USE  TO  COMPARE  CHARS 

248 

F9F1 

26 

09 

BRE 

NOMATCH 

249 

F9F3 

08 

CMATCH:  INX 

IF  MATCH,  MOVE  AHEAD  TABLE  POINTER 

1  250 

F9F4 

A6 

00 

LDAA 

o,x 

LOOX  AT  NEXT  TABLE  ELEMENT 

■  251 

F9F6 

27 

1C 

BEQ 

MATCH 

IF  IT'S  00,  POLL  MATCH! 

252 

F9F8 

DF 

87 

STX 

VECT2 

ELSE  SAVE  TABLE  POINTER 

1  253 

F9FA 

20 

EA 

BRA 

COMPARE 

AND  TRY  NEXT  CHAR 

1  254 

; 

255 

F9FC 

08 

NOMATCB:INX 

INC  TABLE  POINTER 

.  256 

F9FD 

A6 

00 

LDAA 

o,x 

AND  LOOX  FOR  00 

1  257 

P9FF 

26 

FB 

BIE 

NOMATCH 

'LOOP  TILL  IT'S  FOUND 

■  258 

FAOl 

08 

INX 

;INC  OVER  NULL 

259 

FAO: 

08 

III 

6  BAUD  SET  BYTE 

■  260 

FA03 

DF 

87 

STX 

VECT2 

AID  REPLACE  TO  HOLDING  LOCATION 

■  261 

FA05 

20 

04 

BRA 

BTRY 

GO  BACX  TO  CHECX  NEXT  TABLE 

262 

: 

■  263 

FA07 

86 

OA 

HAITBRI:LOU 

tSOA 

TURN  OFF  SCI  INTERRUPTS 

I  264 

'FA09 

97 

11 

STAA 

TRCSR 

IREQOIRES  TOP  INTERRUPT  TO  RESTART) 

265 

FAOB 

7E 

F9  78 

JMP 

SETUIAD 

AID  SET  VECTORS  FOR  NEI  ADDRESS.. 

I 
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266 

267 

KATCH  TABLE  FOR  BAUD  RATE  SRIICH 

26S 

FAOE 

30 

30 

33  00 

BAUDTBL.'DB 

’003',SOO,$01 

300  baud  is  onli  rate  allsued 

FA12 

01 

269 

FA13 

00 

DB 

SOO 

;DORE 

270 

271 

FA14 

08 

XATCH:  IHX 

PASS  00  TERHIRATOR 

272 

FA15 

A6 

00 

LDAA 

o,x 

GET  BAUD  BYTE 

273 

FA17 

16 

TAB 

SAVE  IR  B 

274 

This  unit  has  no  band  change  hardvare,  these  lines  are  kept  here 

275 

to  alloi  it  to  be  added  later. 

276 

ORAA 

FORTl 

:SET  BITS  OR  BAUD  CORTROL  FORT 

277 

STAA 

FORTl 

'910 

6  1  0 

ORAB 

4SF8 

CLEAR  UP  HASX  SO  OTHERS  DON'T  CHANGE 

279 

ANDB 

FORTl 

VHER  CLEAR  BITS.. 

280 

STAB 

FORTl 

IR  FORTl  (BAUD  SET  PORT) 

281 

FA18 

7E 

F9 

78 

JRF 

SETUIAD 

AND  PREPARE  FOR  REN  ADDRESSING 

282 

283 

AFTER  7ALID  ADDRESS,  RECEIVE  CONTROL  CHAR., 

284 

FAIB 

01 

COECHAR:XOF 

285 

FAIC 

81 

21 

CRFA 

*■!' 

IS  IT  '1' 

286 

FAIE 

27 

13 

BEQ 

BARG 

287 

FA20 

81 

3F 

CRFA 

4'?' 

OR  IS  IT 

288 

FA22 

27 

22 

BEQ 

gUERY 

289 

FA24 

81 

20 

CRFA 

V  • 

SPACE  TO  ENTER  NORITOR? 

290 

FA26 

27 

3D 

BEg 

GOROR 

291 

FA28 

81 

48 

CRFA 

4'H’ 

HELP? 

292 

FA2A 

27 

48 

BEg 

SAYHELF 

293 

FA2C 

81 

58 

CRFA 

I'X* 

IRRIATE  STOP? 

294 

FA2E 

27 

38 

BEg 

XSTOF 

295 

FA30 

7B 

F9 

78 

JRF 

SETURAD 

URADDRESS  IF  NOT  VALID.. 

296 

297 

298 

FA33 

CC 

FA 

3B 

BARG:  LDD 

tGOTBARG 

GOT  !  PREFIX 

299 

FA36 

DD 

81 

STD 

.RVECT 

300 

FA38 

7E 

F9 

39 

JRF 

SCIXIT 

301 

302 

FA3B 

81 

4D 

GOTBAHG:CKFA 

t'R' 

'.R  CORRAND? 

303 

FA3D 

27 

20 

BEg 

BARGRL 

304 

FA3F 

81 

50 

CRFA 

f'F' 

!P  CORRAND? 

305 

FA41 

27 

IF 

BEg 

BARGFL 

306 

FA43 

7E 

F9 

78 

JRF 

smm 

307 

308 

FA46 

rr 

FA 

4E 

gOERY:  LDD 

fGOTgURY 

309 

FA49 

DD 

81 

STD 

R7ECT 

310 

FA4B 

7E 

F9 

39 

JRF 

SCIXIT 

311 

312 

FA4E 

81 

4D 

GOTgURY;CHFA 

I'R' 

?R  CORRAND? 

313 

FA5fl 

27 

07 

BEg 

gUERYRL 

314 

FA52 

81 

50 

CRFA 

♦  'F' 

?F  CORRAND 

315 

FAS4 

27 

06 

BEg 

gUERYFL 

316 

FA56 

7E 

F9 

78 

JRF 

SETURAD 

317 

318 

FAS9 

7E 

FA 

92 

gDEEm:JKP 

gUERYR 

LINK  TO  ?R 

319 

FA5C 

7E 

FB 

32 

QDERTFL:JRF 

gUERYF 

LIRX  TO  ?P 

320 

FA5F 

7E 

FA 

B4 

BAIGKL:  JSF 

BARGR 

LIRE  TO  !R 

321 

FA62 

7E 

FB 

6F 

BAIGFL:  JRF 

BARGP 

LINK  TO  !F 
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322 

FA65 

7E  FC  BA 

60M0B;  JHP 

PROMPT 

:LINX  INTO  MONITOR 

323 

- - 

324 

:  IMMEADIATE  STOP 

325 

FA68 

71  FC  02 

XSTOP:  AIM 

*SFC,PORTl 

:DROP  BOTH  ENABLE  BITS 

326 

FA6B 

86  00 

LDAA 

8$00 

:AND  SET  PORTS  TO  00 

327 

FA60 

97  06 

SIAA 

PORT3 

328 

FA6F 

97  07 

STAA 

PORT4 

329 

nn 

FA71 

7E  F9  78 

JMP 

SETONAD 

p 

331 

;  HELP  FILE  DUMP 

332 

FA74 

CC  FA  83 

SAYHELP:LDD 

JOUTHELP 

333 

FA77 

DD  34 

STD 

XVECT 

334 

FA79 

CC  F8  00 

LDD 

fHELPFIL 

:SET  POINTER 

335 

FA7C 

OD  89 

STD 

SCRTCHl 

336 

FA7E 

86  65 

LDAA 

f'e' 

:SEND  FIRST  LETTER  OF  REPLY 

337 

FA80 

7E  FC  Cl 

JMP 

SETOUT 

338 

; 

339 

FA83 

DE  39 

OUTHELP-.LDX 

SCRTCHl 

•.GET  POINTER 

340 

FA85 

A6  00 

LDAA 

0,X 

:GET  CHAR  ->A 

341 

FA87 

27  06 

BEQ 

HELPDUM 

:NnL  IS  TERMINATOR 

342 

FA89 

08 

INX 

rMEANIHILE,  INC  POINTER 

343 

FA8A 

OF  89 

STX 

SCRTCHl 

;AND  SAVE 

344 

FA8C 

7E  FC  Cl 

JMP 

SETOUT 

:FINALLY  SEND  THE  CHAR  IN  A.. 

345 

; 

346 

FA8F 

7E  FC  BA 

HELPDUN:JMP 

PROMPT 

• 

349 

:  ?M  COMMAND 

-  DATA  INPUT  SECTION 

350 

FA92 

CC  FA  98 

50ERYM:  LDD 

ISAVEADD 

:NOH  INPUT  ADDRESS 

351 

FA95 

7E  FB  3B 

JMP 

IN4 

352 

; 

353 

FA98 

OC  39 

SAYEADD;LDD 

SCRTCHl 

:GET  ADDRESS, 

354 

FA9A 

DD  3B 

STD 

SCRTCH3 

ADDRESS  POINTER 

355 

FA9C 

CC  FA  A2 

LDD 

tSTARTL 

356 

FA9F 

7E  FB  BB 

JMP 

IN4 

;THEN  GET  LENGTH 

357 

: 

358 

FAA2 

DC  89 

STARTL:  LDD 

SCRTCHl 

:IF  LENGTH  NE  0000 

359 

FAA4 

26  03 

BNE 

STARTL2 

:  CARRY  ON.. 

360 

FAA6 

7E  FC  BA 

JMP 

PROMPT 

:ELSE  gUIT 

361 

: 

362 

FAA9 

CC  FB  B5 

STARTL2:LDD 

♦ECHO 

: PREPARE  TO  IGNORE  ECHO  CHARS 

363 

FAAC 

DD  81 

STD 

RVECT 

364 

FAAE 

72  04  11 

OIM 

♦S04,TRCSR 

; START  XMIT  INTERRUPTS 

365 

FABl 

7E  FC  IF 

JMP 

OUTLINE 

:i  SEND  A  LINE.. 

366 

: 

367 

:  ..THE  ?M  DUMP  IS  STORED  IN  THE  XMIT  SERVICE  SECTION  3ELON 

368 

369 

370 

:  IM  SECTION 

371 

FAB4 

CC  FA  BA 

BANGM:  LDD 

♦XEEPADD 

: INPUT  STARTING  ADDRESS 

372 

FAB7 

7E  FB  BB 

JMP 

IN4 

373 

; 

374 

FABA 

CC  FA  C2 

XEEPAOD:LDO 

♦HIHEX 

:NAIT  FOR  HIGH  HEX  CHAR 

375 

FABD 

DD  81 

STD 

RVECT 

376 

FABF 

7B  F9  39 

JMP 

SCIXIT 

377 

; 

378 

FAC2 

BD  PD  16 

HIHEX;  JSR 

ASCHEX 

; ATTEMPT  CONVERT  TO  HEX 
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379 

FAC5 

25 

27 

BCS 

TERMIN 

CHECK  TERMIHATOR  IF  SOT.. 

380 

FAC7 

48 

ASIA 

•31 

FAC8 

48 

ASLA 

;M07E  OVER  HIBBLE 

382 

FAC9 

48 

FACA  48 

ASLA 

384 

FACE 

97 

80 

STAA 

SCSTCH5 

385 

FACD 

CC 

FA 

05 

LOO 

ILOHHEX 

386 

FAOO 

DD 

31 

STD 

RVECT 

387 

FAD2 

7E 

F9 

39 

JMP 

SCIXIT 

388 

: 

389 

FAD5 

30 

FD 

16 

LOBHEI:  JSR 

ASCHEX 

CONVERT  LOH 

390 

FA08 

24 

03 

BCC 

STASH 

391 

FADA 

7B 

FC 

BA 

JMP 

PROMPT 

PROMPT  IF  BAD  SECOND  CHAR 

392 

FADD 

DE 

89 

STASH:  LOR 

SCRTCHl 

GET  POINTER 

393 

FAOF 

9A 

30 

QRAA 

SCRTCH5 

COMBINE  NIBBLES 

394 

FAEl 

A7 

00 

STAA 

o,x 

STORE  IT.. 

395 

FAE3 

08 

IM! 

INC  i 

396 

FAE4 

OF 

89 

STX 

SCRTCHl 

RESTORE  POINTER 

397 

FAE6 

CC 

FA 

C2 

LOO 

fHIHEX 

398 

FAE9 

00 

81 

STD 

RVECT  :4PREP  FOR  MORE 

399 

FAEB 

7B 

F9 

39 

JMP 

SCIXIT 

400 

; 

401 

FAES 

84 

7F 

TERNIH:  AMDA 

4S7F  ;MASX  OFF  FLAG  BIT 

402 

FAFO 

81 

OD 

CMPA 

ISOD  :IS  IT  CR? 

403 

FAF2 

26 

03 

BME 

TERMIM2 

404 

FAF4 

7E 

FC 

BA 

JMP 

PROMPT 

405 

; 

406 

FAF7 

81 

20 

TEEMIJ2:CMPA 

t’  ' 

IS  IT  SPACE? 

407 

FAF9 

26 

08 

BME 

TEXMIM3 

408 

FAFB 

CC 

FA 

C2 

LOO 

fHIHEX 

409 

FAFE 

00 

81 

STD 

RVECT 

410 

FBOO 

7E 

F9 

39 

JMP 

SCIXIT 

411 

; 

412 

FB03 

81 

3B 

TERMIH3:CSPA 

f:'  :flR  ? 

413 

FB05 

26 

05 

BSE 

TERMIS4 

414 

FB07 

CC 

FA 

34 

LOO 

IBASGM 

415 

FBOA 

20 

07 

BRA 

PASSLF 

416 

; 

417 

FBOC 

81 

2C 

TERMIM4:CMPA 

f','  :OR  ? 

418 

FBOE 

26 

IF 

BME 

TERMIS5 

419 

FBIO 

CC 

FB 

27 

LOO 

fSETHIHX 

420 

F313 

00 

87 

PASSLF:  STD 

VECT2 

421 

FB15 

CC 

FB 

ID 

LOO 

tPASSLF2 

422 

FB18 

00 

31 

STD 

RVECT 

423 

FBIA 

7E 

F9 

39 

JMP 

SCIXIT 

424 

: 

425 

FBIO 

81 

OA 

FASSLF2;CMPA 

ISOA 

COT  LF  YET? 

426 

FBIF 

26 

03 

BME 

PXIT 

427 

FB21 

7E 

00 

86 

JMP 

jnMP2 

IF  YES,  EXIT  THRO  JMP2 

428 

FB24 

7E 

F9 

39 

PUT:  JMP 

SCIXIT  : ELSE  lAIT  FOR  MORE  CHARS.. 

429 

: 

430 

FB27 

CC 

FA 

C2 

SETHIHX:LDD 

fHIHEX  :IF  THEM  PREP  FOR  MORE  HEX 

431 

FB2A 

DO 

81 

STD 

RVECT 

432 

F12C 

7B 

F9 

39 

JMP 

SCIXIT 

433 

: 

434 

FB2r 

7E 

FC 

BA 

TERM1HS:JMP 

PROMPT 

TO  PROMPT  IF  NOT  VALID  CHAR 

435 

s 


■r 


tp- 


I 
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436 

;  QD".RY  POMP  COtMARD  (7Pn, 

N=l,2) 

437 

FB32 

CC 

FB 

3A 

QOERYP: 

LOD 

8gP2 

438 

?B35 

DO 

81 

STD 

RVECT 

439 

FB37 

7E 

F9 

39 

JMP 

SCIXII 

440 

; 

441 

FB3A 

31 

31 

QP2: 

CMPA 

fl’ 

:PDMP  1? 

442 

FB3C 

26 

04 

3ME 

5P3 

443 

FB3E 

C6 

06 

LDAB 

fPORT3 

:PORT  3  ADDRESS  TO  B 

444 

FB40 

20 

09 

BRA 

gp5 

;AND  GO  FIND  VALUE 

445 

: 

446 

FB42 

81 

32 

gP3: 

CMPA 

»'2’ 

rPOMP  2? 

447 

FB44 

27 

03 

BEQ 

gp4 

448 

FB46 

7E 

F9 

78 

JMP 

SETUNAD 

449 

: 

450 

FB49 

C6 

07 

QP4: 

LDAB 

IPORT4 

;IF  2,  POINT  PORT  4 

451 

FB4B 

CE 

00 

00 

5P5: 

LDX 

toooo 

; CLEAR  INDEX  REGISTER 

452 

FB4E 

3A 

ABE 

;AND  PUT  B  IN  IT 

453 

FB4F 

A6 

00 

LDAA 

o.x 

: FETCH  VALUE  FROM  PORT 

454 

FB51 

97 

89 

STAA 

SCRTCHl 

;AND  SAVE 

455 

FB53 

CC 

FB 

5D 

LDD 

8QP6 

456 

FB56 

DO 

84 

STD 

XVECT 

rPREP  FOR  NEXT 

457 

FB58 

86 

3D 

LDAA 

;SEND  = 

458 

FB5A 

7E 

FC 

Cl 

JMP 

SETOOT 

459 

; 

460 

FB5D 

CC 

FB 

67 

gP6: 

LDD 

lflP7 

:PREP  FOR  PROMPT 

461 

FB60 

DD 

87 

STD 

VECT2 

462 

FB62 

96 

89 

LDAA 

SCRTCIl 

:GET  PUMP  CONTROL  VALUE, 

463 

FB64 

7E 

FC 

9D 

JMP 

ODTBYTE 

464 

: 

465 

FB67 

CC 

FC 

BA 

5?7: 

LDD 

tPROMPT 

466 

FB6A 

DD 

84 

STD 

XVECT 

467 

468 

469 

FB6C 

7E 

F9 

39 

: 

JMP 

SCIXIT 

• 

470 

:  SET  POMP  SPEED  COMMAND  i 

Pnbb  n=l,2  hb^value) 

471 

472 

FB6F 

CC 

FB 

11 

BANGP: 

LDD 

IBPl 

:INNEADIATELY  AFTER  IP, 

473 

FB72 

DD 

81 

STD 

RVECT 

: PREPARE  FOR  S 

474 

FB74 

7E 

F9 

39 

JMP 

SCIXIT 

475 

; 

476 

FB77 

CE 

00 

06 

BPl: 

LDX 

tPORT3 

:SET  ADDRESS  OF  PUMPl 

477 

FB7A 

81 

31 

CMPA 

fr  PUMP  1 

5 

478 

FB7C 

27 

OA 

BEQ 

BP2 

479 

FB7E 

CE 

00 

07 

LDX 

IPORT4 

:NEXT  SET  ADDRESS  OF  PUMP2 

480 

FB81 

81 

32 

CMPA 

t'2' 

:PUMP  2  ? 

481 

FB83 

27 

03 

BEQ 

BP2 

482 

FB85 

7E 

FC 

BA 

JMP 

PROMPT 

•.PROMPT  IF  NO''  1  OR  2 

483 

; 

484 

FB88 

DF 

90 

BP2: 

STX 

PUMP 

;SAVE  PUMP  ADDRESS 

485 

FB8A 

CC 

FB 

90 

LDD 

tBP3 

;SET  EXIT  VECTOR 

486 

FB8D 

7E 

FB 

BB 

JMP 

IN4 

:AND  GO  READ  NEH  PUMP  VALUE 

487 

; 

488 

FB90 

DE 

90 

SP3: 

LDX 

POMP 

:RETRIEVE  POMP  ADDRESS 

489 

FB92 

C6 

01 

LDAB 

801 

:SET  PUMPl  FLAG 

490 

FB94 

8C 

00 

06 

CPX 

8PORT3 

491 

FB97 

27 

OA 

BEQ 

BPl 

492 

FB99 

C6 

02 

LDAB 

102 

;ELSE  SET  PUMP2  FLAG 
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493 

PB9B 

8C 

00 

07 

CPX 

8PORT4 

494 

PB9E 

27 

03 

BEQ 

BP4 

495 

FBAO 

7S 

F9 

78 

JMP 

SETUNAD 

ERROR  IF  NOT  VALID  ADDRESS! 

496 

497 

FBA3 

96 

8A 

3P4: 

LDAA 

SCRTCH2 

RETRIEVE  NEN  VALUE 

498 

FBA5 

A7 

00 

STAA 

0,X 

AND  STORE  IN  PUMP  PORT 

499 

FBA7 

26 

08 

BRE 

BP6 

IS  IT  NOT  00? 

500 

FBA9 

53 

CONB 

INVERT  B  TO  CLEAR  ENABLE  BI 

501 

FBAA 

D4 

02 

ARDB 

PORTl 

AND  HITH  ENABLE  PORT 

502 

FBAC 

D7 

02 

BP5: 

STAB 

PORTl 

AND  MODIFY  THE  BIT. 

503 

FBAE 

7E 

FC 

BA 

JNP 

PROMPT 

504 

505 

FBBl 

DA 

02 

SP6: 

ORAB 

PORTl 

ELSE  ENABLE  THE  CORRECT  BIT 

506 

507 

508 

FBB3 

20 

F7 

BRA 

BP5 

AND  CARRY  OH... 

509 

RECEIVE  AN  ECHO  CHARACTER  il 

(SNORE!) 

510 

FBB5 

01 

ECHO: 

NOP 

ROOM  FOR  JUMP... 

511 

FBB6 

01 

NOP 

512 

FBB7 

01 

NOP 

513 

514 

515 

FBB8 

7E 

F9 

39 

JMP 

SCIXIT 

516 

IN4  HER  DICITS 

517 

INPUTS  HEX  DIGITS  TILL  TERMINATED  BY  A  SPACE  OR 

518 

BY  A  CR 

.  (OR  BY  UNADDRESS).  RESULT  LEFT  AT  SCRTCH1,2 

519 

EXITS  THRO  JDMP2  VHEN  DONE  (TARGET  IN  D  ON  ENTRY) 

520 

521 

FBBB 

DD 

87 

IN4; 

STD 

VECT2  : STORE  EXIT  VECTOR 

522 

FBBD 

7F 

00 

89 

CLR 

SCRTCHl  : CLEAR  INPUT  BUFFER 

523 

FBCO 

7F 

00 

3A 

CLR 

SCSTCH2 

524 

FBC3 

CC 

FB 

CB 

LDD 

IIN4HEX  .'POINT  CHAR  RECEIVER 

525 

FBC6 

DO 

31 

STD 

RVECT 

526 

FBC8 

7E 

F9 

39 

JMP 

SCIXIT 

527 

528 

FBCB 

BD 

FD 

16  IE4HEX: 

JSR 

ASCHEX 

CONVERT  TO  HEX 

529 

FBCE 

25 

15 

BCS 

CXEND 

IF  NOT  HEX,  CHECX  FOX  END 

530 

FBDO 

36 

PSHA 

:SAVE.. 

531 

FBDl 

96 

39 

LDAA 

SCRTCHl  : HI  TO  A 

532 

FBD3 

D6 

3A 

LDAB 

SCRTCH2 

533 

FBD5 

05 

ASLD 

: SHIFT  OVER  FOUR 

534 

FB06 

05 

ASLD 

535 

FBD7 

05 

ASLD 

536 

FBD8 

05 

ASLD 

537 

FBD9 

97 

89 

STAA 

SCRTCHl  : RETURN  HIGH 

538 

FBDB 

D7 

8A 

STAB 

SCRTCH2 

AND  B 

539 

FBDD 

32 

PULA 

RETRIEVE  NEI  NIBBLE 

540 

FBDE 

9A 

8A 

ORAA 

SCRTCH2 

ADD  NEI  NIBBLE 

541 

FBEO 

97 

8A 

STAA 

SCRTCH2 

6  UPDATE 

542 

FBE2 

It 

F9 

39 

JMP 

SCIXIT 

543 

544 

FBE5 

84 

7F 

CXEID: 

ARDA 

♦S7F 

CLEAN  OFF  MS  FLAG  BIT 

545 

FBE7 

81 

20 

CMPA 

'  :IS  IT  SPACE? 

546 

FBI9 

27 

07 

BEQ 

INEXIT 

517 

FBEB 

81 

OD 

CMPA 

*8flD  :IS  IT  CR? 

548 

FBED 

27 

03 

BEQ 

INEXIT 

549 

FBEF 

7g 

F9 

39 

JMP 

SCIXIT  ;ELSE,  GET  ANOTHER  CHAR 
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550 

551 

552 

553 

PBF2 

7E  00  86 

ISEXIT:  JMP 

JDNP2 

:IF  DONE,  CARRY  ON  THRU  7ECT0R. 

555 

;  INPUT  ONE  HEX  BYTE  ANO  CONTINUE  THRU  JUNP2 

556 

FBF5 

48  ' 

INBYTE:  ASIA 

:H07E  OVER 

557 

FBF6 

48 

ASLA 

558 

FBF7 

48 

ASLA 

559 

FBF8 

48 

ASLA 

560 

FBF9 

97  80 

STAA 

SCRTCH5 

:SAVE 

561 

FBFB 

CC  FC  03 

LOO 

8INBYTE2 

.•POINT  TO  NEXT  SEGNENT 

562 

FBFE 

00  81 

STO 

RVECT 

563 

FCOO 

7E  F9  39 

JHP 

SCIXIT 

564 

; 

565 

FC03 

BO  FO  16 

INBYTE2:JSR 

ASCHEX 

: CONVERT  LON  NIBBLE 

566 

FC06 

24  03 

BCC 

SA7EDAT 

567 

FC08 

7E  F9  78 

JNP 

SETUHAD 

: UNADDRESS  IF  ERROR 

568 

J 

569 

FCOB 

9A  80 

SA7E0AT:0RAA 

SCRTCH5 

:COHBINE 

570 

FOOD 

7E  00  36 

JNP 

JDHP2 

:AND  CARRY  OH  THRU  7ECT0R2 

571 

572 

FCIO 

573 

:  HOI  CHECX  THE  TRANSHIT  SITUATION 

574 

FCIO 

7B  20  11 

CHECXX:  TIN 

fS20,TRCSR 

:TEST  TORE 

■75 

FC13 

27  03 

BEQ 

XERROR 

576 

577 

FC15 

7E  00  83 

JHP 

XJUHP 

:GO  THRU  XHIT  VECTOR 

578 

:  THESE  SEGHENTS  ARE  iNTEREO  THRO  XJUHP  ANO  X7ECT0R.. 

579 

FC18 

01 

XERROR:  HOP 

:TRIG  LOC  FOR  DIAGNOSTICS 

580 

; 

581 

:  XJUHP  TARGETS.. 

582 

FC15 

71  FB  11 

XPASS;  AIH 

ISFB.TRCSR 

:TURN  OFF  XHIT  INTERRUPTS 

583 

rClC 

7E  F9  39 

JHP 

SCIXIT 

534 

; 

585 

:  OUTPUT  A  LINE  OF  OATA  iFROH  ?H  DUHP) 

586 

FCIF 

CC  FC  29 

OUTLINE: LOO 

40UTLF 

:i  SET  UP  TO  XHIT 

587 

FC22 

DO  84 

STD 

X7ECT 

588 

FC24 

86  30 

LDAA 

tsoo 

:SEND  CR 

589 

FC26 

7E  FC  Cl 

JHP 

SETOUT 

590 

: 

591 

FC29 

CC  FC  33 

OUTLF:  LDD 

fOOTAODR 

592 

FC2C 

DO  84 

STD 

X7ECT 

593 

FC2E 

86  OA 

LDAA 

ISOA 

:SE.ND  LF 

594 

FC30 

7E  FC  Cl 

JHP 

SETOUT 

595 

596 

FC33 

CC  FC  30 

OUTADOR:LDO 

tLONAOOR 

:PREP  OUTBYTS  XIT 

597 

FC36 

DO  37 

STD 

VECT2 

598 

FC38 

96  3B 

LDAA 

SCRTCH3 

:GET  HIGH  ADDRESS 

599 

FC3A 

7E  FC  90 

JHP 

CUTBYTE 

600 

; 

601 

FC3D 

CC  FC  45 

LOHADDR:LOO 

IL0NA0D2 

:BXIT  FROH  2ND  OUTBYTE.. 

602 

FC40 

00  84 

STO 

XTECT 

603 

FC42 

7E  F9  39 

JNP 

SCIXIT 

604 

; 

605 

FC45 

CC  FC  4F 

L0NADD2:LDD 

fADDRSP 

606 

FC48 

00  87 

STO 

VECT2 
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607 

FC4A 

96  8C 

LDAA 

SCRTCI4 

;SOH  LOH  ADDRESS 

603 

FC4C 

7E  FC  9D 

JKF 

QOTBYTE 

609 

; 

610 

FC4F 

CC  FC  57 

ADDRSF:  LDD 

ISEHDSF 

;£XIT  FROK  2SD  OUTBYTE... 

611 

FC52 

DD  84 

STD 

X7ECT 

612 

FC54 

7E  F9  39 

JSF 

SCIXIT 

613 

: 

614 

FC57 

CC  FC  61 

SEROSF:  LDD 

lOUTDATA 

615 

FC5A 

DD  84 

STD 

X7ECT 

616 

FC5C 

36  20 

LDAA 

i$20 

:SEHD  SPACE 

617 

FC5E 

7E  FC  Cl 

JKF 

SETODT 

618 

: 

619 

FC61 

DE  8B 

ODTDATA:LDX 

SCRTCH3 

:GET  ADDR  FOIHTER 

620 

FC63 

A6  00 

LDAA 

o.x 

:TO  GET  DATA  BYTE 

621 

FC65 

36 

FSHA 

;SA7E 

622 

FC66 

CC  FC  6F 

LDD 

IDECLER 

623 

FC69 

DD  87 

STD 

7ECT2 

:FREP  XIT  7ECT0R 

624 

FC6B 

32  FDLA 

;RETRIE7E  DATA  BYTE 

625 

FC6C 

7E  FC  9D 

JKF 

OOTBYTE 

:&  SEID  IT 

626 

: 

627 

FC6F 

CC  FC  77 

DECLEI:  LDD 

tDECLER2 

;BXIT  FROK  ODTBYTE2.. 

628 

FC72 

DD  84 

STD 

X7ECT 

629 

630 

631 

FC74 

7E  F9  39 

JKF 

SCIXIT 

FC77 

DE  39 

DECLEK2:LDX 

SCRTCHl 

:GET  LEHGTH 

632 

FC79 

09 

DEX 

rDECREKENT 

533 

FC7A 

DF  89 

STX 

SCRTCHl 

:k  RETDRH 

o3i 

?CTC 

26  03 

BSE 

SAYKORE 

:  HORS  DATA? 

635 

FC7E 

78  FC  BA 

JKF 

FRCKFT 

:FROHFT  IF  DONE 

636 

; 

637 

FC31 

DE  SB 

SAYKORE:LDX 

SCRTCH3 

;GET  ADDR 

638 

FC83 

08 

ISX 

;ISCREHEHT 

639 

FC84 

DF  SB 

STX 

SCRTCH3 

: REPLACE 

540 

FC86 

18 

XGDX 

:X  REG  TO  ACCD 

641 

FC87 

04 

LSRD 

:LSB  TO  C 

642 

FC88 

25  D7 

BCS 

OUTDATA 

;SEXT  BYTE  SOH  IF  ODD 

643 

FC8A 

C4  07 

AIDB 

♦S07 

:CHECX  FOR  XXXO  (LINE  ESDI 

644 

FC8C 

26  C9 

BSE 

SEHDSF 

:IF  OHLY  EYES,  SESD  SP 

645 

: 

646 

FC8E 

36  3B 

LDAA 

8’:' 

:IF  SEI  LISE,  SESD  COSTISDATIOS 

647 

FC90 

BD  FD  33 

JSR 

GEHFAR 

648 

FC93 

97  13 

STAA 

XDATA 

649 

FC95 

CC  FC  IF 

LDD 

80UTLIIE 

:4  PREP  FOR  SES  LINE.. 

650 

FC98 

DD  84 

STD 

X7ECT 

651 

652 

653 

FC9A 

7E  F9  39 

JKF 

SCIXIT 

• 

654 

:  OOTFUTS 

A  BYTE  II  A  AS  TIO  HEX  CHARS.  EXITS  7IA  7ECT2.. 

655 

FC90 

97  8D 

OOTBYTE:STAA 

SCRTCH5 

; STASH  FOR  LATER 

656 

FC9F 

44 

LSRA 

657 

FCAO 

44 

LSRA 

:S07E  07ER 

658 

FCAl 

44 

LSRA 

659 

FCA2 

44 

LSRA 

660 

FCA3 

BD  FD  OB 

JSR 

HEXASC 

tCOSYERT 

661 

FCA6 

36 

FSHA 

;ASD  SA7E.. 

662 

FCA7 

CC  FC  BO 

LDD 

IODTBYT2 

663 

fCU 

DD  84 

STD 

X7BCT 
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664 

FCAC 

32 

PULA 

:RECOVER  CHARACTER 

665 

fCAD 

7E  FC  Cl 

JMP 

SETOUT 

m 

* 

567 

FCBO 

96  8D 

0UTBYT2:LDAA 

SCXTCH5 

668 

FC32 

84  OF 

ANDA 

tSOF 

: CLEAN  OP 

669 

FCB4 

BD  FD  OB 

JSR 

HEXASC 

570 

FCB7 

7E  FD  03 

JMP 

OUTJMP 

rCOHVERT,  SEND  4  JUMP  THRU  VECT2 

671 

* 

0/3 

• 

573 

;  SESD  A  PROMPT  FROM  THE  MOHITOR,  THEH  HAIT  FOR  CHARS 

574 

FC8A 

CC  FC  D1 

PROMPT:  LDD 

4PROMPT1 

675 

FCBD 

DD  84 

STD 

XVECT 

676 

677 
578 

FCBF 

86  OD 

LDAA 

4S0D 

:SEHD  CR  FIRST 

:  IHITIATE  A  OUTPUT  SEQUEMCE 

679 

FCCl 

BD  FD  33 

SETOUT:  JSR 

GEHPAR 

680 

FCC4 

97  13 

STAA 

XDATA 

:SEHD  FIRST  CHAR 

681 

FCC6 

72  04  11 

OIM 

8S04,TRCSR 

:TURN  ON  INTERRUPTS  IF  REQ'D 

682 

FCC9 

CC  FB  35 

LDD 

fECHO 

683 

FCCC 

DD  81 

STD 

RVECT 

:4  PREPARE  TO  ECHO 

684 

FCCE 

7E  F9  39 

JMP 

SCIXIT 

685 

; 

686 

FCDl 

CC  FC  DA 

PROMPTl-.LDD 

4PROMPT2 

687 

FCD4 

DD  84 

STD 

XVECT 

688 

FCD6 

86  OA 

LDAA 

ISOA 

:SEND  LF 

689 

FCD8 

20  E7 

BRA 

SETOUT 

690 

; 

591 

FCDA 

CC  FC  E3 

PROMPT!: LDD 

IPRCMPT3 

692 

FCOD 

00  84 

STD 

XVECT 

593 

FCDF 

86  3A 

LDAA 

I’:’ 

694 

FCSl 

20  DE 

BRA 

SETOUT 

595 

; 

696 

FCS3 

36  03 

PROMPT3:LDAA 

IS03 

: FINALLY  ETX 

697 

FCE5 

BD  FD  33 

JSR 

GEHPAR 

698 

FCE8 

97  13 

STAA 

XDATA 

:DRACON  HERE? 

699 

FCEA 

71  FB  11 

AIM 

ISFB.TRCSR 

:NCH  TORN  OFF  XMIT  INTERRUPTS 

700 

FCED 

CC  FC  F5 

LDD 

JHAITPRl 

701 

FCFO 

DD  81 

STD 

RVECT 

:NAIT  FOR  ETX  ECHO 

702 

FCF2 

7E  F9  39 

JMP 

SCIXIT 

703 

: 

704 

:  UAIT  FOR  THE  ETX  TO  ECHO  BACK 

705 

FCF5 

81  03 

«AITPR1:CMPA 

tS03 

:IS  IT  THE  ETX  YET? 

706 

FCF7 

26  05 

SHE 

HXIT 

;IF  SOT,  HAIT  FOR  NEXT  CHAR 

707 

FC:9 

CC  FA  IB 

LDD 

4COICHAR 

708 

FCFC 

DD  81 

STD 

RVECT 

:I?  30.  CONTROL  CHAR  HILL  BE  SEX 

709 

FCFE 

7E  F9  39 

«XIT:  JMP 

SCIXIT 

710 

: 

lU 

» 

712 

:  SEMDS  ETX  6  CARRIES  OH  THRU  7ECT2 

713 

FDOl 

86  03 

XETX:  LDAA 

t$03 

:SEND  ETX 

714 

FD03 

BD  FD  33 

OUTJMP:  JSR 

GEIPAR 

;NAY  ENTER  HERE... 

715 

FD06 

97  13 

STAA 

XDATA 

: DRAGON  AGAIN? 

716 

FD08 

7E  00  36 

JMP 

JUMP2 

:NOH  THRO  JDMP2 

717 

718 

719 

lltttltttllltttllltttttttttttfl 

720 


SUBtOUTIlES 
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767 

768 


721 

:• - 

722 

:  Converts  lo»  nibble  in  A  to  ASCII  char  in  A 

723 

FDOB 

34  OF 

HEXASC:  AHDA 

8S0F  :CLEAM  IT  CP 

724 

FOOD 

SB  F6 

ADDA 

4SF6 

725 

FDOF 

24  02 

BCC 

HBDBBER 

726 

FDll 

SB  07 

.ADDA 

4S07  rCONVERT 

>  6  » 

FD13 

SB  3A 

EBUHBER:ADDA 

♦S3A  ;  TO  ASCII 

728 

FD15 

39 

RTS 

729 

; 

7’0 

731 

:  Converts  ASCII  char  in  A  to  nibble  in  A  if  it  is  HEX  &sets 

732 

:  Otherwise,  returns  origional  char  with  C  bit  set. 

733 

FD16 

36 

ASCHEX:  PSHA 

:SAVE  CHAR 

734 

FD17 

SO  30 

SDBA 

fS30 

735 

FD19 

25  15 

SCS 

SOTHEX 

736 

FDIB 

SO  OA 

SDBA 

ISOA 

737 

FDID 

2C  04 

BGE 

TSTALPH 

738 

FDIF 

SB  OA 

ADDA 

4S0A  ;REPAIR  BUBB 

739 

FD21 

20  OA 

BRA 

AXIT 

740 

FD23 

30  07 

TSTAL?H:SOBA 

iS07  ;41-)00  ? 

741 

FD25 

20  09 

BLT 

BOTHEX 

742 

FD27 

80  06 

SUSA 

tS06 

743 

FD29 

2C  05 

BGE 

BOTHEX 

744 

FD2S 

SB  10 

ADDA 

iSlO  ; REPAIR  ALPH 

745 

FD2D 

31 

AXIT:  IBS 

:POP  OFF  SAVED  CHAR 

746 

FS2E 

OC 

CLC 

:ABD  CLEAR  CARRY  BIT 

747 

FD2F 

39 

RTS 

748 

749 

FD30 

32 

HOTHEX;  PDIA 

:GET  CHAR 

750 

•D31 

OO 

SEC 

:SST  CARRY 

751 

FD32 

39 

RTS 

752 

753 

:  GENERATE  PARITY-  Char  is  passed  in  and  out  thru  A 

754 

FD33 

37 

GEBPAR;  PSBB 

:SAVE  SOBE  STUFF.. 

755 

FD34 

3C 

PSHX 

756 

FD35 

16 

TAB 

:COPY  CHAR  TO  3 

757 

F036 

CE  FO  66 

LOX 

8PARITY  .-POINT  TO  PARITY  TABLE  TOP 

758 

FD39 

3A 

ABX 

:ADD  OFFSET  TO  POINT  X  TO  CHAR 

759 

FD3A 

AA  00 

ORAA 

0,X  ;ADD  PARITY  BIT 

760 

FD3C 

38 

POLX 

:.. RESTORE 

761 

FD30 

33 

POLE 

762 

FD3E 

39 

RTS 

763 

764 

: 

765 

:  TIMER  IBTERRDPT  PROCESSING  SECTIOSS 

T85 

; . 

bit 


769 

FD3F 

96  08 

TOP;  LDAA 

770 

FD41 

96  09 

LOAA 

771 

FD43 

7B  80  02 

TIB 

772 

FD46 

27  11 

EC  SETBRX  ;i: 

773 

;  IF  SOT  LOB, 

774 

FD48 

96  8E 

LOU 

775 

FD4A 

2A  13 

BPL 

776 

;  IF  JUST  CABE 

777 

FD4C 

71  7F  8B 

AIB 

TIBER  OVERFIOI  IBTERRDPT,  BATCHES  FOR  SAIL  BREAX  EXIT 


TCSR  :READ  COWTER  STATOS  REC 
COOBTHI  :  AHD  COOHTER  TO  CLEAR  IHTERROPT 
»S80,PORI1  :TSST  BREAX  SEHSE  BIT 
F  LOI,  SET  BREAX  FLAG 
JOST  RISEl? 

BBODE 

TOFXIT  ;IF  IAS  BO  BREAX,  CARRY  OB.. 

OOT  OF  BREAK... 
t$7F,BHOOE 


;CLEAR  BREAX  FLAG 
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778 

FD4F 

72  10  11 

779 

FD52 

CC  F9  7D 

730 

FD55 

DO  31 

781 

FD57 

20  06 

782 

783 

FD59 

72  30  SE 

784 

FD5C 

71  EB  11 

735 

FD5F 

3B 

786 

737 

788 

789 

790 

FD60 

7B  40  03 

791 

FD63 

27  00 

752 

793 

FD65 

33 

794 

795 

796 

FD66 

00  30  30  00 

FD6A 

30  00  00  30 

797 

FD6E 

30  00  00  80 

FD72 

00  30  30  00 

798 

FD76 

80  00  00  30 

FD7A 

00  30  30  00 

799 

FD7E 

00  30  30  00 

FD82 

30  00  00  30 

300 

801 

FD86 

30  00  00  30 

F03A 

00  ?<'  80  00 

302 

FD8E 

00  30  30  00 

FD92 

30  00  00  30 

333 

FD96 

00  30  30  00 

FD9A 

30  00  00  80 

304 

FD9E 

30  00  00  30 

FDA2 

00  30  30  00 

305 

306 

FDA6 

30  00  00  80 

FDAA 

00  30  30  00 

307 

FDAE 

00  30  30  00 

FDB2 

30  00  00  80 

308 

FD96 

00  30  30  00 

FDBA 

30  00  00  30 

309 

FDBE 

30  00  00  30 

FDC2 

00  30  80  00 

310 

811 

FDC6 

00  30  80  00 

FDCA 

30  00  00  30 

312 

FDCE 

80  00  00  80 

FDD2 

00  80  30  00 

813 

FDD6 

30  00  00  80 

FDDA 

00  80  30  00 

314 

FDDE 

00  30  30  00 

FDE2 

30  00  00  80 

315 

816 

FDE6 

80  00  00  80 

FDEA 

00  30  80  00 

317 

FDEE 

00  30  80  00 

OIM 

ISIO.TRCSR 

LDD 

fUNADDR 

STD 

RVECT 

BRA 

TOFXIT 

SETBRX:  DIM 

4S30,BMOOE 

AIM 

tSEB.TRCSR 

TOFXIT:  RTI 

: ENABLE  SCI  INTERRUPTS 
:AHD  PRESET  JUMP  7ECT0R.. 

:SET  BREAK  FLAG 

:TURN  OFF  BOTH  SCI  INTERRUPTS 


:  OUTPUT  COMPARE  INTERRUPT 

QCI:  TIN  HO.TCSR 

3EQ  QXIT  :£XIT  IF  NOT  QCFla? 

:  DUMMY  FOR  INSTRUCTIONAL  PURPOSES  ONLY 

OXIT:  RTI  ;AHD  EXIT.. 

. . . . . 

:  PARITY  TABLE 

PARITY:  DB  00,30,30,00,60,00,00,30  ;A 

OB  30,00,00,30,00,30,30,00  ;B 

DB  30,00,00,30,00,30,30,00  ;B 

DB  00,30,30,00,30,00,00,30  :A 

XXlfl 

DB  30,00,00,30,00,30,30,00  ;5 

DB  00,30.30,00,30,00,00,30  ;A 

DB  00,80,30,00,80,00,00,30  :A 

DB  30,00,00,30,00,30,30,00  :3 

;  XX40 

DB  80,00,00.30,00,30,80.00  ;B 

DB  00.30,30,00,80,30,00.80  ;A 

DB  00,80,30,30,30,30,00,30  :A 

DB  80,00,00,80,00,30,30.00  ;fl 

:  XX60 

DB  00,80,80,00,80,00,00,80  ;A 

OB  80,00,00,30,00,30.80,00  :3 

DB  30,00,00,80,00,80,30,00  ;3 

DB  00,30,80,00,30,00,00,30  :A 

;  XX80 

DB  80,00,00,80,00,80,33,00  ;B 

DB  00,30,30,00,30,00,00,33  ;A 
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FDF2 

80 

00 

00 

30 

S13 

FDF6 

00 

30 

30 

00 

DB  00, 

30,80,00,80,00,00,30 

:A 

FDFA 

80 

00 

00 

80 

319 

FDFE 

80 

00 

00 

30 

DB  30, 

00,00,80,00,80,30,00 

:B 

FE02 

00 

30 

30 

00 

320 

;  HAO 

321 

FE06 

00 

30 

30 

00 

DB  00, 

80,80,00,80,00,00,30 

;A 

FEOA 

30 

00 

00 

30 

322 

FEOE 

80 

00 

00 

30 

DB  30, 

00,00,80,00,30,80,00 

;B 

rE12 

00 

80 

80 

00 

323 

FE16 

80 

00 

00 

30 

DB  30, 

00,00,30,00,80,80,00 

:9 

FEIA 

00 

80 

80 

00 

324 

FEIE 

00 

30 

80 

00 

D8  00, 

30,30,00,80,00,00,30 

:A 

FE22 

80 

00 

00 

80 

325 

;  ncfl 

826 

FE26 

00 

80 

30 

00 

DB  CO, 

80,80,00,30,00,00,80 

:A 

FE2A 

80 

00 

00 

30 

327 

FE2E 

80 

00 

00 

30 

DB  30, 

00,00,30,00,30,30,00 

;3 

FE32 

00 

80 

80 

00 

323 

FE36 

30 

00 

00 

30 

OB  30, 

00,00,30,00,30,30,00 

:B 

FE3A 

00 

30 

30 

00 

329 

FE3E 

00 

30 

80 

00 

DB  00, 

80,80,00,80,00,00,30 

:A 

FE42 

80 

00 

00 

80 

330 

;  XXEO 

831 

FS46 

80 

00 

00 

80 

DB  30, 

00,00,80,00,30,30,00 

.•A 

FE4A 

00 

80 

30 

00 

332 

FE4E 

00 

30 

30 

00 

DB  00, 

30,30,00,30,00,00,30 

;B 

;E52 

30 

CO 

00 

30 

333 

FE56 

00 

30 

30 

00 

DB  00, 

30,30,00,80,00,00,80 

:B 

FE5A 

30 

00 

00 

30 

334 

FE5E 

30 

00 

00 

30 

DB  30, 

00.00,30.00,30,80,00 

;A 

FE62 

00 

30 

30 

00 

335 

; 

336 

ttltttl 

tttttttttttttttttssttttt 

tttttttittsttttttftttttt 

837 

:  DEFIHE  IHTERRDPT  AND  RESET  VECTORS 

333 

FO 

03 

TRAP: 

E5U 

START 

839 

; 

TOP; 

EQO  START 

340 

OCF: 

EQU  START 

841 

FO 

08 

ICF: 

EQO 

START 

342 

FO 

08 

IRQl; 

E9U 

START 

343 

FO 

08 

SII: 

sgo 

START 

344 

FO 

08 

NHI: 

SQU 

START 

345 

FO 

03 

RESET; 

w 

START 

346 

; 

347 

FFEE 

ORG 

SFFEE  :  SET  HARDIARE 

VECTORS 

343 

FFEE 

FO 

08 

DV 

TRAP 

349 

FFFO 

F9 

32 

ON 

SCISTRT 

850 

FPF2 

FD 

3F 

Dl 

TOP 

351 

FFF4 

FD 

60 

Dl 

OCl  :OUTPUT  COMPARE  INTERRUPT 

852 

FFF6 

FO 

08 

Dl 

ICF 

853 

FFF8 

FO 

08 

01 

IRQl 

854 

FFFA 

FO 

08 

Dl 

SII 

855 

FFFC 

FO 

08 

Dl 

NHI 

856 

FFFE 

FO 

08 

01 

RESET 

857 

; 

858 

0000 

END 
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tiittitoot  CROSS  R 


FCIO 

ADDR 

FOOD 

175 

ADDRSP 

FC4F 

605 

ASCHEX 

FD16 

378 

AXIT 

FD2D 

739 

3AHG 

FA33 

236 

SAHGH 

FAB4 

320 

BAXGBL 

FA5F 

303 

BAHGP 

FB6F 

321 

BANGPL 

FA62 

305 

BAUD2 

F9A6 

200 

BAUDB 

F9AD 

205 

BA0D4 

F9BA 

203 

BAODB 

F9C2 

215 

BAUD6 

F9CF 

221 

BADDTBL 

FAOE 

230 

BHODE 

r  003E 

114 

BPl 

FB77 

472 

BP2 

FB88 

478 

BPl 

FB90 

485 

BP4 

FBA3 

491 

BPS 

FBAC 

506 

BP6 

FBBl 

499 

BTRY 

F9DB 

261 

CAPTOREI 

s  OOOD 

CAPTORLO 

*  OOOE 

CHECXX 

FCIO 

147 

CXCBAR 

F93A 

140 

CKSID 

FBES 

529 

CSATCH 

F9F3 

CCBPARE 

F9E6 

253 

CORPARHI 

:  300B 

CONPARLO 

=  OOOC 

COICHAR 

FAIB 

195 

COUHTHI 

=  0009 

770 

CODHTLO 

»  OOOA 

DDRl 

z  0000 

35 

DDR2 

=  0001 

88 

DDRl 

-  0004 

90 

3DR4 

=  0005 

93 

DECLER 

FC6F 

622 

DECLEH2 

FCT7 

527 

DOZE 

F049 

118 

ECHO 

FBB5 

362 

GEXPAR 

FD33 

647 

GOHOI 

FA65 

290 

GOTADDR 

F996 

192 

GOTBAIG 

FA3B 

298 

GOTSUH 

F957 

158 

GOTQDRY 

FA4E 

308 

HELPDUl 

FA8F 

341 

EELPFIL 

F800 

334 

HEXASC 

FDOB 

660 

HIHEX 

FAC2 

374 

:  F  E  R  E  N  C  E  TABLE  “* 

389  328  565 

414 


774  777  783 

481 

494 


707 


682 

679  537  714 


669 

397  408  430 


Appendix  I 

SEA  DUCT  -  ELECTRONIC  DRANIN6S 


Dwg.  I 

Sizel  Title 

L  J _ 

Rev.  Date. 

SD-BOOI 

B 

Computer  System  Connection  List 

20  Nov.  84 

SD-B002 

B 

Computer  System  Connections 

20  Nov.  84 

SD-B003 

B 

U/W  Connectors  (CPU  System) 

24  Nov.  86 

SD-B004 

B 

I/O  Decode 

24  Nov.  86 

SD-B005 

B 

Output  Driver  Decoding 

24  Nov.  86 

SD-B006 

B 

Pulse  Driver  Decoding,  A/D,  Mux.  Decoding 

23  Apr.  86 

SD-B007 

B 

Software  Timing 

24  Nov.  86 

SD-B008 

B 

Computer  Ribbon  Conn.  Pin  /  Funct.  Cross  Ref. 

04  Nov.  83 

SD-B009 

B 

uP,  System  Battery 

24  Mar.  87 

SD-BOlO 

B 

SAIL,  Camera,  Transmissometer  -  External  Conn. 

02  Dec.  86 

SD-0011 

B 

Bottom  Sw.,  Opto.  Int.,  Xponder  -  Ext.  Conn. 

23  Apr.  86 

SD-B012 

B 

Buffer  Board  -  Main  Section 

23  Apr.  86 

SD-0013 

B 

Buffer  Board  -  SAIL  and  Reset 

12  Jun.  86 

SD-B014 

B 

Buffer  Board  -  Circulation  Pump  Control 

24  Nov.  86 

SD-0015 

B 

Buffer  Board  -  Parts  Layout 

24  Nov.  86 

SD-B016 

B 

Output  Driver  Board 

24  Nov.  86 

SD-0017 

B 

Output  Driver  Board  -  Parts  Layout 

24  Nov.  86 

SD-B018 

B 

Interface  Board  -  A/D,  Voltage  Convertor 

24  Nov.  86 

SD-0019 

B 

Interface  Board  -  Compass  Interface 

15  Oct.  84 

SD-B020 

B 

Interface  Board  -  Rotation  Encoder  Interface 

24  Nov.  86 

SD-0021 

B 

Interface  Board  -  Parts  Layout 

28  Sep.  83 

SD-B022 

B 

Rotation  Encoder  Interface  (Encoder  Housing) 

20  Nov.  84 

SD-B023 

B 

LITTON  Rotation  Encoder 

20  Nov.  84 

SD-B024 

B 

Rotation  Encoder  Interface  -  Parts  Layout 

20  Nov.  84 

SD-B025 

B 

Auxiliary  Board 

24  Nov.  86 

SD-B026 

B 

Auxiliary  Board  -  Parts  Layout 

05  Dec.  85 

SD-B027 

B 

Manual  Control  Box  (Connections) 

24  Nov.  86 

SD-B028 

B 

HP  1630D  Analyzer  Interface  Box 

02  Feb.  84 

SD-B029 

B 

HP  1630D  Analyzer  Interface  Box  -  Layout 

18  Oct.  83 

SD-B030 

B 

HP  1630D/HP  1610  Analyzer  Interface  Box 

12  Jul.  84 

SD-B031 

B 

Main  Wiring  Harness 

28  Mar.  87 

SD-B032 

B 

CPU  Endcap  -  Electiical  Connections 

13  Dec.  85 

SD-B033 

B 

Pump  Controller  -  Control  Circuit 

26  Nov.  86 

SD-B034 

B 

Pump  Controller  -  Power  Circuit 

26  Nov.  86 

SD-B035 

B 

Pump  Controller  -  Board  Layout 

26  Nov.  86 

SD-B036 

B 

Pump  Controller  -  Block  Diagram 

26  Nov.  86 

SD-B037 

B 

CMOS  -  RS232  Interface 

24  Nov.  86 

SD-B038 

B 

OIS  Acoustic  Command  Xcvr.  -  Modifications 

30  Dec.  86 

SD-B039 

B 

OIS  Acoustic  Command  Rcvr.  -  Modifications 

30  Dec.  86 

SD-B040 

B 

Photosea  Camera  Cable 

28  Mar.  87 

SD-COOl 

C 

CPU  BOARD  (2  Sheets) 

19  Dec.  85 

SD-C002 

C 

Main  Junction  Box  Wiring 

18  Dec.  85 

SD-DOOl 

D 

Electrical  Master 

31  Jul.  85 

I-l 
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REVISIONS 


ZONE 

LTR 

DESCRIPTION 

DATE 

APPROVED 

Cr-P)S‘P 

Cc^yFLi-P) 

to  to  I 


A/oi 


e  : 


JL.  XSAT-^-J^cJ- 

xs!^ -y- 


’c>A>  (L/^LL 
/^rcssure.  C't^  e- 


du-f  r  e.  (dt-  ^  ~  :  f  C/^  iyCS  S.S  Se^Ci'o-zf'C-  /  L- 
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A  /  -•  “  U  7-  V  V  -  -  / 


,  5D-  "8037 


^/t  /£ 


f  Zl'C-  >C 


^4jAjec~r^  d  (ZPLL  AouS/aj^ 


RE\J.  2.*J  Mom  8C,  | 

WOODS  HOLE  OCEANOGRAPHIC  INSTITUTION 

ENQINEERINQ  DEPT. 

WOODS  HOLE,  MA.  02S43 

6d/f<y  do^Aie-c^-forS  ( Sysie.*^) 

SB  A  ’DUCaT 

CONTRACT  *iO.  /CA  1  COOE  NO. 

DWG.  NO.  ^  2>  -  S  -  <5  O  3  OF  REV?^^ 

UA£  X  1  date  //  JL/v  Wl  SIZE  B 

B 


T 


X^M  li  K-'i 


Cyui.piJLh 


r 

J.  HaaccL  Crr’ji,  Sie-A  Sei  Qr^.  Sc./ 

Z  Co^io.<^i  ^w;/eXei  B4.i.  1 


3  X  *PoS  i  i, !  o** 

V  Y  2L  Po si  i »■  o«j 

S'  - 

V  AeAtus-/-»'c  Xp  0/'>c4 


"Sa.^.  2  ^e.  /a-y 

BaL.t .  3  /^y 

Z.  0  U  Kci  e 

Ctf«.  £  1^  Cc 
Acow.s)^<c. 
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Electronics  Manufacturers 


Apparatus  Service  Co. 

5  Henshaw  St. 

Woburn,  MA  01301 
617-933-5999 

Belden  -  Electronic  Wire 
and  Cable  Division 
P.O.  Box  1980 
Richmond  IN,  47375 
317-983-5200 

Brantner  &  Associates 
1240  Vernon  Way 
El  Cajon,  CA  92020 
619-562-7070 
800-854-2552 

Byrd  Industries 
P.O.  Box  278 
Industrial  Park 
Shelbyville,  KY  40065 
502-633-1338 

Carrol  Cable  Company,  Inc. 
Pawtucket,  RI  02862 
401-728-7000 

CompuPro 

3506  Breakwater  Court 
Hayward,  CA  94545 
415-786-0909 

Digicourse,  Inc. 

P.O.  Box  50699 

New  Orleans,  LA  70150 

504-733-6061 

Elactrochem  Industries 
10,000  Wehrle  Dr. 

Clarence,  NY  14031 
716-759-6901 

Humphrey,  Inc. 

9212  Balboa  Ave. 

San  Diego,  CA  92123 
714-656-6631 


Littlefuse,  Inc. 

800  E.  Northwest  Hwy. 

Des  Plains,  IL  60016 
312-433-2050 

Litton  Systems,  Inc. 

Encoder  Divison 
20745  Nordhoff  St. 

Chattsworth,  CA  91311 
213-341-6161 

Magnacraft  Electric  Co. 

1910  Techny  Road 
Northbrook  IL  60062-5376 
312-282-5500 

Melcher  elektronische  Cerate  AG 

Ackerstrasse  56 

Postfach 

CH-8610  Uster 

Switzerland 

Telex  57154  MEUS  CH 

Telephone  01  941  37  37 

Molex, Inc. 

2222  Wellington  Court 
Lisle,  Illinois  60532 
312-969-4550 

Micro  Power  Systems 
3100  Alfred  St. 

Santa  Clara,  CA  95054 
408-727-5350 

Oceanographic  Instrument  Systems 
Box  766 

N.  Falmouth,  MA  02556 

Optimal  Technology,  Inc. 

Blue  Wood  127 
Earlysville,  VA  22936 

Photosea  Systems,  Inc. 

11120  Roselle  St. 

San  Diego,  CA  92121 
619-452-8903 


Potter  &  Brumfield 
P.O.  Box  322 

Princeton,  Indiana  47671-0001 
312-336-1000 

Relay  Service  Co. 

1310  North  Pulaski  Rd. 
Chicago,  Ill.  60651 
312-252-2700 

Sea  Data  Corporation 
One  Bridge  St. 

Newton,  MA  02158 
716-244-3203 

Sea  Tech,  Inc. 

P.O.  Box  779 
Corvallis,  OR  97330 
503-757-9716 

Stevens  Arnold 
7  Elkins  St. 

South  Boston,  NA  02127 
617-268-1170 

Sinclair  Manufacturing  Co. 
Chartley,  MA.  02712 
617-222-7440 

Sprague  Electric  Co. 

87  Marshall  St. 

North  Adams,  MA  02147-2484 
413-664-4411 

Syscon  Corp. 

5015  Hancock  St. 

San  Diego,  CA  92110 

Teledyne  -  Mecca 
P.O.  Sox  36393 
Houston,  Texas  77236 
(713)  772-2811 

WET  Instrument  Systems 

P.O.  Box  517 

Woods  Hole,  MA  02543 
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Appendix  K 

BLT.2  Mini-Monitor  Program 

BLT,  (Bradlay-Liberatore-Terry)  is  an  extension  and  modification  of 
RCA's  UT4  monitor.  The  only  I/O  used  are  Q  and  EF4*,  The  baud  rate  if 
fixed,  and  an  entry  at  location  0000  (cold  start)  will  give  a  prompt 
without  typing  CR.  Some  of  the  extended  functions  require  a  modest 
amount  of  RAM  but  BLT  checks  before  using  it  and  will  refuse  these 
functions  if  it  can't  write  in  the  assigned  area. 

To  install  BLT: 

1.  Find  the  timing  constant  and  write  it  into  the  PROH  at 
M{0108) . 

300  Baud  1.0000  Mhz.  =  14  300  Baud  1.6000  Mhz.  =  18 

300  Baud  1.2288  Mhz.  =  IE  300  Baud  2.0000  Mhz.  =  26 

2.  Select  one  page  of  RAM  for  BLT's  use  if  you  need  either  the 
subroutine  call  or  CRC  functions.  BLT  will  use  EO-FF  on  this  page 
with  a  stack  extending  back  from  DF.  The  page  selected  is 
specified  at  M(OOIF). 

3.  BLT.2  is  page  relocatable  and  may  be  moved  if  required. 

Two  long  branches  must  be  changed  in  the  UT4  part.  The  bytes  to  be 
changed  are  01  at  M(OODO)  and  00  at  M(OIFD).  These  are  the  values 
for  the  version  that  starts  at  0000.  Add  to  these  values  to  move 
to  a  higher  location  in  memory.  If  you  need  to  use  the  $P  entry 
method  with  RAMTEST  (see  section  on  modification  of  BLT) ,  you  may 
wish  to  change  the  LBR  at  M{0010)  as  well. 

4.  Select  the  user  branch  at  bytes  0005  and  0006.  If  EF4*  is  not 
held  low  (true)  on  entry  by  an  RS232  device,  the  monitor  will  jump 
to  the  user  program  via  a  LBR  at  0004.  This  is  usually  set  to  0800 
but  can  be  any  value. 

5.  If  the  terminal  you  are  using  has  a  narrow  screen  (H.P.  85)  you 
can  shorten  the  memory  dump  line  length  (set  to  16  bytes  normally) 
by  changing  the  OF  at  M(009D)  to  07,  giving  a  format  of  3  bytes  per 
line. 

6.  If  you  can't  use  EF4*,  the  monitor  can  be  switched  to  any  other 
flag  by  changing  the  37's  (BF4)  at  M(0002),  M(0153) ,  and  M(0161) 
and  the  3F  vBK4)  at  (M(C173)  and  M(014D). 


Features  of  the  BLT.2  Mini-Monitor 

BLT  contains  the  !M,  ?M  and  $P  commands  of  UT4.  Read  the  RCA  docu¬ 
mentation  for  details.  Notice  that,  although  RCA  doesn't  list  it  in  the 
register  use  table,  the  TYPE  routines  use  an  additional  scratch 
location.  RCA  selected  RD.O  but  this  interferes  with  alternating  calls 
to  TYPE  and  READH  which  is  occasionally  useful.  BLT.2  therefore 
substitutes  R8.0  which  is  "scratched"  by  all  calls  to  TYPE. 
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All  the  BLT  added  commands  are  accessed  by  typing  (the  monitor 
echos  then  typing  a  single  letter  to  select  the  command.  The 

commands  prompt  the  user  for  the  necessary  arguments  which  are  usually 
addresses  or  byte  counts.  The  argument  rules  are  similar  to  those  for  UT4. 
When  the  monitor  expects  a  constant,  all  non-hex  entries  are  ignored  except 
space  and  CR,  either  of  which  terminate  the  entry.  (Don't  use  CR  since  the 
subsequent  reply  will  overwrite  the  beginning  of  the  line.)  Leading  zeros 
are  provided  and  excess  hex  digits  may  be  added  to  correct  an  entry  error 
since  only  the  last  valid  hex  digits  are  used.  Examples  of  valid  entries 
are  0001,  20,  3WE5  (=35),  ABC34EF2  (=4EF2). 

1.  .M,  block  move.  Format,  "...Move  from  AAAA  to  BBBB  length  CCCC 
ok?Y"  where  AAAA,  BBBB,  CCCC  are  source  start  address,  sink  start 
address  and  length  to  copy.  If  the  reply  to  "ok?"  is  not  "Y",  no 
move  will  occur.  "Move"  copies  from  low  to  high  address  and  can 
get  into  trouble  if  the  source  and  sink  overlap. 

2.  .V,  Verify,  Format,  " — Verify  AAAA  with  BBBB  length  CCCC". 

This  command  compares  two  blocks  of  memory  and  list  the 
differences.  The  format  of  non  equal  data  is  AAAA  BB  CC  DDDD  where 
BB  is  the  byte  at  AAAA  and  CC  is  the  byte  at  DDDD  and  BBOCC. 

3.  .C  CRC  calculation.  Format  "...CRC  from  AAAA  over  BBBB  =CCCC". 
This  calculates  a  16  bit  CRC  check  character  over  the  block  of 
memory  starting  at  AAAA  of  length  BBBB.  It  takes  about  15  seconds 
to  do  all  65K.  It  is  based  on  some  European  standard  polynomial 
for  generating  CRC's.  This  command  will  refuse  if  there  is  no  RAM 
in  the  system. 

4.  .S  Subroutine.  Format  "...Subroutine  AAAA  DD  DD  X".  This 
command  invokes  a  SCRT  call  to  a  routine  at  AAAA,  passes  it  in-line 
data,  DDDD,  and  expects  the  subroutine  to  return  via  a  D5 
instruction  (standard  RCA  call  and  return  using  R3=pc,  R4=call, 
R5=return,  R6=immediate  bytes  pointer  and  R2-stack  pointer) .  The 
in-line-data  is  optional  but  will  run  out  of  buffer  if  longer  than 
28  bytes.  For  this  one  command,  spaces  are  allowed  between  bytes 
hence  the  terminator  "X"  must  be  used  to  invoke  the  command.  Any 
other  non-hex  entry  will  abort  the  command  and  return  to  the 
prompt.  After  the  return  from  the  user  subroutine,  the  monitor  re¬ 
initializes  all  it's  registers  so  there  are  no  restrictions  on 
register  use  (other  than  those  used  by  SCRT  itself.)  The  stack  is 
set  up  on  the  ram  page  starting  at  location  DF.  This  command  will 
abort  if  no  RAM  is  present  in  the  system. 

5.  .R  Ramtest.  Format  " _ Ram  test  start  at  AAAA  over  BBBB". 

Ramtest  tests  an  area  of  RAM  starting  at  AAAA  by  writing  a  psudo- 
random  sequence  BBBB  bytes  long,  then  checking  the  entire  area  on  a 
second  pass.  It  is  very  good  at  finding  obscure  "connected  cell" 
errors.  Every  good  pass  causes  an  on  the  terminal.  Each 
subsequent  pass  uses  the  sequence  shifted  over  one  bit  so  several 
are  required  to  catch  all  bit  locations.  When  RAMTEST  finds  an 
error,  it  lists  the  XDR  of  the  data  it  wrote  and  read  along  with 
the  address  where  the  error  occurred. 
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Modifications  to  BLT.2 


There  are  several  attractive  alternative  configurations  of  BLT. 

First,  if  memory  is  at  a  premium,  the  first  two  pages  alone  can  be  used  to 
give  a  self-starting  version  of  UT4  which-  can  be  re-entered  at  0000  with 
X=P=0  or  0007  with  only  P=0  to  elicit  an  immediate  prompt.  Similarly, 
RAMTEST  is  totally  contained  on  the  third  page  and  will  work  with  UT4  as  a 
3  page  package.  To  enter  RAMTEST  without  the  rest  of  the  monitor,  use 
SPIO.  If  you  use  either  of  these  truncated  versions,  you  should  delete  the 
extended  command  test  branch  added  to  UT4.  The  easiest  way  to  do  this  is 
to  change  the  3A  (BNZ)  at  M(OOIC)  to  30  (BR) . 

It's  easy  to  add  more  functions  to  BLT.2  as  well.  Study  the  code  at 
0592-059A  then  add  more  tests  by  changing  the  jump  at  059A.  Notice  that 

the  letter  entered  as  a  response  to  the  " _ "  extended  prompt  is  stored  at 

RF.l  and  that  the  "no  match"  return  is  through  0522.  Notice  also  that  P=R4 
at  this  time.  If  your  routine  is  used,  return  through  the  "warm  start" 
location,  0007,  with  P=0  to  re-initialize  the  registers  required  for  the 
monitor's  use.  There  is  a  small  text  handling  subroutine  included  with  BLT 
(called  QTTY)  that  runs  in  R5  and  starts  at  04A1  which  may  be  handy  if  you 
need  some  prompting  for  your  extension.  Read  the  source  file  for  details. 
Remember  the  bit  about  all  TYPE  calls  (QTTY  calls  TYPE)  scratching  R8.0. 


RCA  Format  listing  for  BLT2 


!M  ; 

0000 

7100 

137D7  IC008 

3^8 

02BE 

2E9E 

3A0A 

3029 

User  Branch 

ooio.tSHJT 

FFFF 

FFFF 

FFFF 

FBll 

3A42 

F8@' 

A5D5 

“-v.  LBR  for  Ram  Test 

— Ram  page  select 

0020 

B295 

FC03 

B4F3 

06A4 

D490 

B5B3 

F830 

0030 

E571 

55C4 

C4F8 

FEA3 

D3F8 

9CA3 

D30D 

D30A 

Sea  Duct  =  57 

0040 

D32B 

F800 

AOBD 

F83B 

A3D3 

FB24 

32D6 

FB05 

0050 

AlCE 

FBIE 

3A1A 

D3FB 

4D3A 

CAD3 

3B5B 

D333 

0060 

5EFB 

203A 

CA9D 

B08D 

A081 

32B4 

F800 

ADBD 

0070 

D333 

70FB 

0D3A 

CAF8 

9CA3 

8DA1 

9DB1 

D30A 

0080 

90BF 

F8AE 

A3D3 

80BF 

F8AE 

A3D3 

D320 

40BF 

0090 

F8AE 

A3D3 

2181 

3A9B 

9132 

3980 

FA@ 

3AA6 

?M  line  length 

OOAO 

D33B 

D30D 

307E 

F633 

8E30 

8CD3 

3BAB 

D33B 

0F=16  Bytes 

OOBO 

CA8D 

5010 

D333 

AEFB 

0D32 

39FB 

2132 

ABFB 

07=08  Bytes 

OOCO 

173A 

B403 

FBOD 

3  AC  3 

305B 

F89C 

A3D3 

ODCO 

OODO 

(^8 

0000 

0000 

D3FB 

503A 

CAD3 

3  3D? 
(7100) 

FBOD 

Page  dependent 

OOEO 

3ACA 

9DB0 

8DA0 

F89C 

A3D3 

0AE5 

D39E 

$P  exit 

OOFO 

F6AE 

2E43 

FFOl 

3AF4 

8E32 

EE23 

30F2 

93BC 

0100 

F800 

AEAF 

F8EF 

ACF8 

^E 

F839 

A530 

2EFF 

Baud  Rate  Select 

0110 

FFFF 

FFFF 

FFFF 

FFFF 

FFFF 

FFFF 

FFFF 

FFFF 

0120 

FFFF 

FFFF 

FFFF 

FFFF 

FFFF 

FFFF 

FFFF 

D5FC 

0130 

0733 

37FC 

OA33 

87FC 

009F 

D5F8 

0032  83C8 
80(^  4B(f7l 

BF4,  BN4  0 

0140 

F801 

AFF8 

30BF 

E38F 

F63B 

4D38 

0150 

4FDC 

0237 

4F8F 

F63B 

5B38 

40E2 

C49E 

F633 

0160 

68^ 

667B 

3068 

7AC4 

DC07 

C4C4 

9FF6 

BF33 

0170 

78F9 

80PF] 

5BBF 

305D 

7A32 

438F 

3A39 

9FFF 

0180 

413B 

2FFF 

0633 

37FE 

FEFE 

FEFC 

08FE 

AE8D 

0190 

7EAD 

9D7E 

BD8E 

FE3A 

8E30 

3900 

DC17 

38D5 

01  AO 

4533 

4638 

9FAE 

FBOA 

3  ABF 

F88B 

30C1 

9FF6 

OIBO 

F6F6 

F6FC 

F63B 

B9FC 

07FF 

C6AE 

F81B 

C8F8 

OICO 

OBAF 

7B8E  A8DC 

072F 

F5M 

76M 

33D1 

7B30 

R8.0  scratched  by  'type' 

OIDO 

D37A 

C48F 

FAOF 

C4C4 

3AC5 

8FFC 

FBAF 

3B9F 

OlEO 

FFIB 

329F 

3BEA 

F800 

30F5 

9FFA 

OFFC 

F63B 

OlFO 

F3FC 

07FF 

C6AE 

30C2 

D30A 

D33F 

C0^$  3947 

Page  Dependent 

mm 

90B5 

F8BB 

A5D5 

mm 

mm 

300T 

0000 

0061 

Ram  Test  Routine 

0210 

6D20 

7465 

7374 

2073 

7461 

7274 

2061 

7420 

*  Page  independent 

0220 

9DFF 

9DBB 

8DAB 

D56F 

7665 

7220 

9DFF 

C4C4 

*  Enter  SP  2F6  from  UT4 

0230 

97B8 

9BB9 

86A9 

9DBA 

8DAA 

F898 

A5D5 

98C4 

*  Enter  ...R  from  BLT2 

0240 

5919 

2A8A 

3A3D 

9A3A 

3DC4 

97B8 

9BB9 

8BA9 

0250 

9DBA 

8DAA 

D5E9 

98F3 

3A70 

192A 

8A3A 

549A 

0260 

3A54 

97B8 

D598 

B7F8 

BBA5 

D52A 

FF30 

30FF 

0270 

A8F8 

BBA5 

D50D 

OAOO 

0000 

0000 

FF88 

BFD5 

0280 

8120 

6174 

20FF 

99BF 

D581 

FF89 

BFD5 

8  IFF 

0290 

F898 

A530 

5AFF 

FFDO 

F800 

A898 

3AA1 

F8FF 

02A0 

B8F6 

3BA5 

18F6 

F63B 

AA18 

F63B 

AE18 

F63B 

02B0 

B218 

88F6 

9876 

B830 

97FF 

D040 

A7FA 

803A 

02C0 

C9F8 

A4A3 

87Br 

D330 

BB87 

FBFF 

32BA 

87FB 

02D0 

813A 

D8F8 

AEA3 

30C6 

87FB 

9D3A 

C130 

EDFF 

02E0 

D39F 

FB20 

3AE0 

F89C 

A3D3 

2030 

BBF8 

OOAD 

0?F0 

3BA3 

30E0mF810 

BA2A 

9A3A 

F930 

002F; 

Ram  Test  entry  point 

BLT  additions  to  UT4 


K-4 


0300 

B4FF 

FFFF 

FFFF 

94FC 

01B5 

F8A1 

A5C4 

D5DD 

0310 

2E2E 

9ADD 

00C4 

9FFB 

4D32 

30FB 

0E32 

70C4 

0320 

FBI  5 

32C2 

30FE 

94FF 

03B0 

F807 

AOEO 

DOFF 

0330 

D5DD 

6F76 

6520 

6672 

6F6D 

209D 

00C8 

FFFF 

0340 

9DBA 

8DAA 

D574 

6F20 

9D00 

9DBB 

8  DAB 

D56C 

0350 

656E 

6774 

6820 

9D6F 

6B3F 

9A00 

9FFB 

59C4 

0360 

3A26 

4A5B 

1B2D 

9D3A 

628D 

3A62 

30EA 

FFFF 

0370 

D5DD 

7263 

2066 

726F 

6D20 

9D00 

9DBA 

8DAA 

0380 

FFFF 

D56F 

7665 

7220 

9D00 

F8E2 

A2F8 

6DA5 

0390 

D533 

26F8 

OOBB 

7352 

FFFF 

OAFB 

FFCE 

BBC4 

03A0 

D52D 

9D3A 

9A8D 

3A9A 

F8A1 

A59B 

32B9 

92BD 

03B0 

8  2  AD 

D53D 

8D8D 

0030 

26D5 

436C 

6561 

7200 

03C0 

3026 

D5DD 

6572 

6966 

7920 

9D00 

9DBA 

8DAA 

03D0 

D5DD 

7769 

7468 

209D 

009D 

BB8D 

ABD5 

DD6C 

03E0 

656E 

6774 

6820 

9D00 

30FF 

D5DD 

0700 

3026 

03F0 

FFFF 

FFFF 

FFFF 

FFFF 

FFFF 

FFFF 

FFFF 

38C8 

0400 

30FE 

9D3A 

148D 

3A14 

D5DD 

2064 

6F6E 

6500 

0410 

3022 

FFFF 

EBOA 

F33A 

261A 

1B2D 

3002 

FFFF 

0420 

FFFF 

94FF 

01B4 

D50D 

OAOO 

F84B 

A5FC 

009A 

0430 

D58A 

D5F6 

D50A 

D5F6 

D50B 

D5F6 

D59B 

D58B 

0440 

D5F8 

A1A5 

3019 

FFF8 

02F6 

D433 

54BF 

F8AE 

0450 

A3D3 

3047 

F820 

BFF8 

A430 

50FF 

FFFF 

FFFF 

0460 

FFFF 

FFFF 

FFFF 

FFFF 

FFFF 

FFFF 

FFF8 

7352 

0470 

E2F3 

3277 

FFOO 

C8FC 

00D4 

E24A 

F322 

52F6 

0480 

F6F6 

F6F3 

52FE 

FEFE 

FE60 

60F3 

2273 

72F6 

0490 

F6F6 

F373 

FOFE 

FEFE 

FEFE 

F360 

6073 

3079 

04A0 

D404 

3AA7 

1430 

AOFB 

8A3A 

B4F8 

A4A3 

D314 

04B0 

30A1 

FFFF 

FB07 

3AC0 

4DBF 

F8AE 

A330 

AEFF 

04C0 

FB02 

3AD0 

30BA 

FB40 

32EC 

FBDD 

BF30 

ABFF 

04DO 

FB15 

3A0A 

F83E 

A330 

AEFF 

FB07 

3AC6 

F800 

04E0 

BOAD 

F83B 

A3D3 

9FFB 

203A 

E5C4 

9EFE 

FEAE 

04F0 

8E32 

AF2E 

C430 

FOFF 

FFFF 

FFFF 

FFFF 

38C8 

0500 

3092 

FFFF 

FFFF 

D5DD 

7562 

726F 

7574 

696E 

0510 

6520 

00C4 

F86D 

A5D5 

3322 

94B5 

F87C 

A5C4 

0520 

3028 

94FF 

02B4 

FFFF 

F8E0 

A2F8 

D452 

12D5 

0530 

9FFB 

583A 

22F8 

D552 

C4C4 

F8DF 

A294 

B6C4 

0540 

F870 

A692 

B3F8 

E0A3 

94B5 

F861 

A5C8 

FFFF 

0550 

D3E2 

8673 

9673 

93B6 

83A6 

46B3 

46A3 

3050 

0560 

D396 

B386 

A3E2 

1272 

B6F0 

A630 

60FF 

FFFF 

0570 

93FF 

05B0 

F807 

A0E3 

7100 

FFD4 

F83B 

A3D3 

0580 

3B8A 

D33B 

8A8D 

5212 

307F 

9FFB 

2032 

7C30 

0590 

7BFF 

9FFB 

5332 

06FB 

013A 

2294 

FF03 

B0C4 

05A0 

F8F6 

AOEO 

DOFF 

FFFF 

FFFF 

FFFF 

FFFF 

FFFF 

05B0 

FFFF 

FFFF 

FFFF 

FFFF 

FFFF 

FFFF 

FFFF 

FFFF 

05C0 

FFFF 

FFFF 

FFFF 

FFFF 

FFFF 

FFFF 

FFFF 

FFFF 

05D0 

FFFF 

FFFF 

FFFF 

FFFF 

FFFF 

FFFF 

FFFF 

FFFF 

05E0 

FFFF 

FFFF 

FFFF 

FFFF 

FFFF 

FFFF 

FFFF 

FFFF 

05F0 

FFFF 

FFFF 

FFFF 

FFFF 

FFFF 

FFFF 

FFFF 

FFFF 

Locations  0600  -  07FF  are  also  empty. 
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Appendix  L 

BTU  Monitor  Program  Listing 


The  BTU  Monitor  program  runs  automatically  when  the  CPU  is  reset, 
description  of  this  monitor  may  be  found  in  the  software  section. 


L-1 


SACRO-18  3.36 


PAGE  I 


] 

4 

: 

0 

3 

13 

12 

II 

14 

:  5 
16 
11 
18 


SAIL  BASIC  MHITOR  PKOCRAM 

SuBTTL  3TU  SAIL  MONITOR  20  ;EB  1986  3102. MAC 

PREVIOUS  VERSION:  13  FEB  1985  37U2.NAC 

SEA  DUCT  VERSION  -  Easily  adaptable  for  other  1805A/6A  SAIL  systeas 
“•  UNLOCKED  SYSTEM  VERSION  ;  I :  “• 

DOES  SOT  USE  INTERRUPTS  i!!  “• 


19 

20 
21 
22 

23 

24 

25 

26 
27 
23 
29 
■0 
31 

i  ^ 

33 

34 


C 

C 

C 

c 

c 


c 


INCLUDE  IIBOBA  ;include  file  for  1306A  opcodes 
I1806A.MAC  -  Macro  Definitions  for  RCA  1305A,oA  Opcodes 

20  FEB  1936 
R.  S.  TERRY 

ILISTINO  SUPRESSED) 

Rith  sote  Level  II  codes 

.LIST 

FOR  RCA  1305A/6A 
R.  E.  TERRY 


36 

37 
33 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 


3000 

3001 
0002 
0003 


0006 

0006 

0007 

0003 


0001 


tiixxiiiitixttttttoott  xgGisyvj  ALLOCATION 


tiittti  SJJT,  Itttitt 


DMA 

EQU  0 

;DMA  IN/ODI  -  ALSO  START 

ISTPC 

uQu  1 

;  INTERRUPT  PROGRAM  COUNTER 

STAC.! 

EQU  2 

: UTILITY  STACK 

PC 

EQU  3 

:MAIS  PROGRAM  COUNTER 

< 

:SCRT  CALL 

; 

5 

;SCRT  RETURN 

RTNPTR 

EQU  6 

; POINTER  FOR  RETURN  i  IMMEDIATE  BYTES 

LIST 

EQU  6 

GPAGE 

SQU  7 

;GLOBAL  PAGE  3.0  A  R.O 

CYCCST 

EQU  8 

;REAL  TIME  CLOCK  CYCLE  COUNT 

•ttlttttitltttilltttltitttiltl  I/O  jEIijCy  ittttl.aliltllltltlitttlitltttttltill 

f 

GROUP  SQU  01  :  SELECT  *  OUT  01 
:  ;  READ  =  ISP  01 


PACE  1-1 

20  FEB  1986  BTU2.SAC 


»ACRO-18  3.16 
BTU  SAIL  KONITOR 


58 

35 


5R0U?  6  -  jARTS 


80 


82 

83 

84 

85 

86 


0306 

0012 


O’ARTS  EQtl  06  ;  j’ART  JROu'? 

FORSTl  EQU  12H  :  7  DATA  BITS,  1  STOP  BIT,  EVES  PARITY 

:  (INPUT) 


57 

0002 

DATAl 

EQU  02 

LEVEL  1  SAIL  UART 

63 

0003 

STATl 

EQU  03 

LEVEL  1  SAIL  UART 

5? 

0004 

DATA2 

EQU  04 

LEVEL  2  SAIL  UART 

*’C 

0005 

STAT2 

EQU  05 

LEVEL  2  SAIL  UART 

71 

0006 

DATAl 

EQU  06 

.MOT  USED 

72 

■3 

0007 

STATl 

EQU  07 

.MOT  USED 

0003 

:  (  OUTPUT  > 
CTRLl  EQU  03 

LEVEL  01  SAIL  UART  CONTROL 

"'o 

0005 

CTRL2 

EQU  05 

LEVEL  02  SAIL  UART  CONTROL 

1 1 

0007 

CTRL! 

EQU  07 

SOT  USED 

0 

:q 

30 

31 

3 «  j  0  0 


■  tttttttt  QJOU?  7  >•>><**> 

SYSTEM  EQU  07 


35 


( :.v?u:  > 

<  OUTPUT  > 


HALT  EQU  36  :  SUICIDE  FUNCTICS 

•MEMORY  EQU  07  ;  .MEMORY  PAGE  PROTECT  CR  E.’IABLE 


3^ 

52 

93 

94 

95 
98 

3" 


ttttttttltttttttttttttttttitittitttttttitti 


Q  =  UT4  IBLT.21 
INTERRUPT  PULSE 
MEM.  PROTECT 


EF4  = 


102 

103 

104 

105 

106 
137 
108 
.U? 
110 
iLs 
112 


0000 

3003 


0056 

3057 


ttttttttttitfttt  DEFINITIONS 


r*“  SAIL  PROM  LOCATIONS  -  27i6'S  •“ 

BTU  EQU  QOH  BTU  MONITOR  PROM  BASE  PAGE  “• 

PROMl  EQU  08B  TARGET  PROGRAM  BASE  PAGE  “« 

REFERENCES  «««•«»«»•»“»«« 

GLOPG  EQU  0563  BTU2  GLOBAL  PAGE  «“ 

STRPG  EQU  0573  BTU  STACR  BASE  PAGE 


PACE  1-2 

20  FEB  1986  BTU2.KAC 


SACiiO-18  1.36 
3TU  SAIL  MONITOR 


113 

114 

115 

116 
11? 


SEA  DUCT  GLOBAL  PAGE  =  5000 

SEA  DUCT  STACK  PAGE  =5300 

SEA  DUCT  SEQUENCER  STACK  PAGE  =  5200 


4  ..  * 


3LT.2  MONITOR  STACK  PAGE  =  5700 
STACK  END  =  57FF 


122 

123 

124 

125 

126 


57DF 


OTHER  REFERENCES  *“ 

STKEND  EQO  (STKPG  *  lOOH)  +  ODFH  STACK  END  =  STKPGtDF 


128 

129 


149 

150 

151 

152 

153 

154 

155 

156 


SAIL  FLAGS,  ETC. 


130 

5600 

G? 

EQU 

(GLOPG  ‘  lOOH) 

iJi 

132 

5602 

PLSVEL 

EQU 

(GP  +  02H) 

PASS  THRU  LEVEL 

133 

5603 

SYSFLG 

EQU 

(GP  t  fl3H) 

<ADDR:'(IRITE:SYS:  :: 

134 

5605 

CRCRAM 

EQU 

(GP  +  OSH) 

CRC  CALC.  SCRATCH 

135 

5606 

CRCHI 

EQU 

(GP  +  06H) 

CRC  HI  BYTE  RESULT 

136 

5607 

CRCLQ 

EQO 

(CP  +  07H) 

CRC  LO  BYTE  RESULT 

137 

5608 

R3HI 

EQU 

(CP  t  08HI 

R3.1  SAVE  FROM  LAST  INTERRUPT 

133 

5609 

RSLO 

EQU 

(GP  ^  09H) 

R5.0  SAVE  FROM  LAST  INTERRUPT 

139 

560A 

GRPSAV 

EQO 

(GP  t  OAH) 

CURRENT  I/O  GROUP  OUTSIDE  IN' 

141 

55FS 

^OkOC 

EQU 

(GP  rOFEHl 

I/O  BYTE 

142 

: 

143 

3003 

STX 

EQU  03H 

•ASCII  ETX  =  03 

144 

OOFF 

DONE 

EQU  OFFH 

USED  3Y  TTY  CALLS 

145 

146 

■  '7 

381F 

TARADR 

EQO  081FH 

TARGET  SYSTEM  ADDRESS  -  USED  3 

•  1  1 

148 

0033 

PMTCHR 

EQO 

' : '  :  PROMPT  CHARACTER  =  : 

:i> 


..ulXr.wf : ; 


2  3IT  OLY  ROUTINE 
SAIL  ADDRESS  AND  REPLY 
DLY  250  I  250  sSEC  DLYi 
DLY  20  !  INITIAL  SETUP  OLYl 


ttttttkttttttttttttttttttttttttkttttttttttlttttitttttikiitttittkittttisxtttsxt 


Itkttftltktttftittttktttttt  PPQGRAM  3ZGINS  HERE 


153 

159  0000' 

160  0000'  71 

161  ooor  00 

152  0002'  30  37' 

163  0004'  FFFF 

164  0006'  FF 

165  0007'  90 

166  0008'  33 

167  0009'  F8  OE' 

168  OOOB'  A3 


HDSTRT:  ORC  (BTO  *  lOOHI 
DIS 

DB  00  :  DISABLE  INTERRUPTS 

BR  SETSL 
DM  OFFFFH 
DB  OFFH 
SETSL;  CBI  RO 

PHI  PC  :  SET  PC  TO  STARTING  ADDRESS 

LDI  LONISTARTl) 

PLO  PC 


MACRO-18  3.36  PAGE 

1-3 

TO  SAIL  MONITOR 

20  FEB  1986 

3TD2.MAC 

159 

oooc 

30  56' 

3R  SCRTST 

170 

OOOE' 

F8  01 

STARTl: 

LDI  31 

*  7  ^ 

0010' 

AB 

PLO  R3 

173 

3011' 

:3  00 

LDI  00 

174 

3013' 

AE 

PLO  RE 

175 

0014' 

F3  FF 

LDI  OFFH 

175 

0015' 

AC 

PLO  RC 

173 

0017’ 

S3 

r 

MENA3; 

SEX  PC 

179 

0018’ 

61 

OUT  CROUP 

130 

0019' 

07 

DB  SYSTEM 

131 

; 

132 

OOIA' 

EE 

SEX  RE 

133 

0013' 

3C 

NEMPG: 

CLO  RC 

134 

OOIC 

32  3A’ 

BE  FINIS 

135 

OOlS' 

9£ 

GHI  RE 

136 

OOIF' 

FB  57 

XRI  STRPG 

137 

0021' 

32  2D' 

BE  SETQl 

133 

0023' 

9E 

GHI  RE 

139 

0024' 

FB  56 

XRI  GLOPG 

190 

0026' 

32  2D' 

BE  SETQl 

191 

0023' 

3B 

GLO  RB 

192 

0029' 

3A  20' 

3NE  SETQl 

193 

0023' 

7A 

REQ 

194 

002C' 

33 

SRP 

193 

0020' 

73 

SETQl: 

SEQ 

195 

002E' 

67 

OUT  MEMORY 

197 

002F' 

7A 

REQ 

193 

0030' 

9E 

GHI  RE 

199 

0031' 

FC  01 

ADI  31 

200 

0033' 

BE 

PHI  RE 

201 

0034' 

3C 

GLO  RC 

202 

0035’ 

FF  01 

SMI  01 

203 

3037' 

AC 

PLO  RC 

204 

0033' 

30  13' 

3R  NEMPG 

205 

206 

003A' 

E3 

FINIS: 

SEX  PC 

207 

0033' 

61 

OUT  GROUP 

203 

003C' 

06 

DB  UARTS 

209 

* 

210 

: 

6  *  A 

003D' 

F8  56 

SETUP: 

LDI  GLOPG 

<1  A  A 

033F' 

37 

PHI  GPACE 

213 

,* 

;  BRANCH  TO  SCRT  SET  UP 


; SELECT  SYSTEM  I/O  GROUP 


;ALi(AYS  ENABLE; 
STACKPAGE 


GLOBAL  PAGE 


:  PROTECT  OR  ENABLE  1 
:  PROTECT  ->  Q  =  3 


;:/0  =  MEM,  PROTECT 


;  GLOBAL  PAGE  SETUP 
;  SETS  R7.1  TO  GLOPG 


NO  MEMORY  IS  CLEARED  IN  CASE  ME  MOULD  LIRE  TO  SEE  MEAT  FORCED 
US  TO  RESET  THE  SYSTEM 


“»  THIS  SPACE  KAY  BE  USED  FOR  FURTHER  SETUP  ROUTINES 


0040'  F3  20 


DLYOO;  LDI  2QH 
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225 

0042' 

BE 

PHI  RE 

;  20  =  ARBITRARY  DELAY  NHICH 

VO 

0043' 

2£ 

NAIT;  DEC  RE 

;  INSURES  UART  'NILL  RESET 

227 

0044' 

9E 

GHI  RE 

baS 

0045' 

3A  43' 

3NZ  NAIT 

229 

230 

231 

0047' 

F8 

OA  SETURT:  LDI  LON  GRPSAV 

:  SELECT  UART  I/O  GROUP 

232 

0049' 

A7 

PLO  GRACE 

;  AND  STORE  OH  GLOBAL  PAGE 

233 

004A' 

F8 

06 

LDI  LON  DARTS 

234 

004C' 

57 

STR  GPAGE 

235 

004D' 

E7 

SEX  GPAGE 

236 

004E' 

61 

OUT  GROOP 

237 

004F' 

E3 

SEX  PC 

238 

0050' 

63 

OUT  CTRLl 

:  SET  UARTl  AS  SEONN  IN  THE  I/O  GROUP 

239 

0051' 

12 

DB  FORMTl 

;  ALLOCATION  SETUP 

240 

241 

0052' 

E3 

SEX  PC 

242 

0053' 

CO 

0084' 

LBR  UNADDR 

:  GO  TO  UNADDRESS 

243 

244 

245 

ttittfttttttatkitttttttifttttttktktklttttttktlltktltttkikxtlttttkttttttKittkKtkt 

246 

247 

tkkkkkkkkkkkkkkkkkkkkk 

STANDARD  CALL  AND  RETURN 

248 

249 

0056' 

90 

SCRTST;  CHI  RO 

;  GET  PROM  41  BASE  PAGE 

250 

0057' 

B4 

SCRT:  PHI  R4 

251 

0053' 

35 

PHI  R5 

;  AND  PUT  IN  R4.1  4  R5.1 

252 

0059' 

F8 

57 

LDI  LON  STKPG 

253 

005B' 

32 

PHI  STACK 

;  PUT  STACK  LOCATION  IN  R2 

254 

305C' 

F8  DF 

LDI  LON  STKEND 

255 

005E' 

A2 

PLO  STACK 

256 

005F' 

F8 

66' 

LDI  LON  CALL 

257 

0061  ' 

A4 

PLO  R4 

;  SET  'JP  SCAL  RTNPTR 

258 

0062' 

F8 

76' 

LDI  LON(RTH) 

259 

0064' 

A5 

PLO  R5 

;  AND  RETURN 

260 

261 

“*  STANANDARD  CALL  “• 

262 

263 

0065' 

D3 

CTOP:  SEP  PC 

264 

0066' 

E2 

CALL:  SEX  STACK 

265 

0067  ' 

86 

GLO  RTSPTR 

266 

0068' 

73 

STXD 

267 

0069' 

96 

CHI  RTNPTR 

268 

006A' 

73 

STXD 

269 

0063' 

93 

GHI  PC 

270 

006C' 

36 

PHI  RTNPTR 

271 

006D' 

33 

GLO  PC 

272 

006E' 

A6 

PLO  RTNPTR 

273 

006F' 

46 

LDA  RTNPTR 

274 

0070' 

33 

PHI  PC 

275 

0071' 

46 

LDA  RTNPTR 

276 

0072' 

A3 

PLO  PC 

277 

0073' 

30 

65' 

BR  CTOP 

278 

279 

280 


•“  STANDARD  RETURN  •“ 


!(ACRO-13 

3.36  PAGE 
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281 

0075  ' 

D3 

RTOP:  SEP  PC 

;  SET  ?  =  PROGRAM  CO'JNTSR 

232 

0076' 

96 

RTN:  GHI  RTSPTS 

233 

0077  ' 

33 

PHI  PC 

;  RETURN  ROUTINE 

234 

0073' 

86 

CLO  RTNPTR 

285 

0079' 

A3 

PLO  PC 

286 

007A' 

E2 

SEX  STACK 

287 

0073' 

12 

IHC  STACK 

283 

007C' 

72 

LDXA 

289 

007D' 

36 

PHI  RTSPTR 

290 

007E' 

FO 

LDX 

291 

007?' 

A6 

PLO  RTNPTR 

292 

0080' 

30  75' 

BR  RTOP 

293 

; 

234 

295 

; 

296 

•ttttttttttktitttitttiittt  I/O  ERROR  RECOVER  iK>*>kXtXtkttkkttttktxxktftkktftkt 

297 

298 

0082' 

32  35' 

lOSRR:  3Z  READDR 

299 

J 

300 

f 

301 

0084' 

C4 

UHADDR;  NOP 

302 

0085' 

?8  03 

REAODR;  LDI  LON  SYSFLG 

;  FORCE  OPEN  SYSTEM 

303 

0087' 

A7 

PLO  GPAGE 

304 

0088' 

?a  EO 

L3I  OEOE 

305 

008A' 

57 

STR  GPAGE 

306 

; 

307 

0083' 

••8  DF 

LDI  LON  STKEND 

308 

00  oD 

A2 

PLC  STACK 

:  RESET  STACK 

309 

; 

310 

• tttttttttttttttttttttitttttttt  pjlOUp*  ttttttttttitttttttitttiitttttttttttttttt 

311 

; 

312 

; 

313 

mv 

PROMPT:  CALL  TSRE? 

:  (TRANS.  SER.  REG.  EMPTYI 

:U  303E'  D4 

315  303?'  0:3A' 


315 

CALL  TTY 

:TY?E; 

J  A 

0091' 

04 

313 

0092' 

0190' 

- 

319 

0094' 

CA 

03  OCAH 

ii' 

J  6  w 

3095' 

33 

03  PMTCHR 

321 

0096' 

03 

03  OO’H 

322 

0097' 

?F 

OB  OFFH 

:  CR,  LF,  NULL  K6, 

323 

CALL  TSRE? 

:  PROMPT  CHAR.,  ETX 

324 

3098' 

04 

* 

325 

0099' 

023A' 

t 

326 

3093' 

CO  309E' 

LBR  3R1ST 

:  GO  TO  FIRST  3RANCH 

327 

323 

329 

tkittftkttfefttltttfttttkktkk  3R)iNCH  * k X k 1 1 k 1 1 1 1 1 1 1 X t X k t k 1 1 1 k 1 1 ft t X t X k 1 1 1 1 1 x t 

330 

331 

332 

009E' 

iRlST:  CALL  IT3 

:  TEST  FOR:  ;  AOO  OR  DELETE 

333 

009E' 

04 

- 

334 

009F' 

0180' 

♦ 

335 

OOAl' 

3? 

DB  '?' 

:  ?  GROUP  ;  AS  NECESSARY 

336 

00A2' 

00C7' 

ON  gOESGR 

;  FOR  YOUR  SYSTEM 
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331 

00A4' 

21 

DB  '!’  ■ 

:  -1  GROUP 

338 

00A5' 

00D4' 

3V  BANGGR 

339 

30A7' 

24 

DB  '3' 

:  3  GROUP 

340 

00A8' 

0421  ' 

DH  TESTS 

341 

OOAA' 

43 

DB  '5' 

:  HELP  FILE 

342 

OOAB' 

Q4E0' 

DK  HELP 

343 

OOAD' 

4D 

DB  'M' 

:  NEMORY  PROTECT 

344 

OOAE' 

0598' 

DN  NEKSAV 

345 

OOBO' 

2E 

DB  '.' 

:  DOT  COSHAND  EX 

346 

OOBl' 

OOBl’ 

3H  30TGR 

341 

00B3' 

?F 

DB  OFFH 

;DONE 

348 

00B4' 

CO  008E’ 

LBR  PROKPT 

349 

J 

350 

351 

•itttttttttkttttttittttttttitt  GROUP 

352 

r 

353 

OOBl' 

OOTGR:  CALL  ITB 

354 

QOBl’ 

34 

+ 

355 

OOB8' 

0180' 

t 

356 

OOBA' 

4D 

DB  '»' 

;  .NOVE 

351 

OOBB' 

0336’ 

DN  MOVE 

358 

OOBD' 

56 

DB  'V 

;  .VERIFY 

359 

OOBE' 

0373' 

DN  VERFY 

360 

OOCO' 

52 

DB  'R' 

:  .RANTEST 

361 

oocr 

3642' 

DN  RAKTST 

362 

00C3' 

FF 

DB  OFFH 

363 

00C4' 

CO  308E' 

LBR  PROHPT 

;  EXPANSION  CAN  3E 
;  ADDED  HERE 


369 

OOCl' 

gUESGR:  CALL  ITB 

;  LOOX  FOR: 

313 

30C7' 

34 

- 

371 

30C3' 

0130' 

r 

t — 

;  ADD  OR  DELETE 

313 

OOCA' 

4D 

DB  'N' 

:  AS  NECESSARY 

374 

00C3' 

0250' 

DN  gOESTH 

;  ?  N 

315 

OOCD' 

43 

DB  'C 

376 

OOCS' 

0453  ' 

DN  CRC 

:  ■  CRC 

*7** 

3OD0' 

FF 

DB  OFFH 

:  DONE 

;  EXPANSION  CAN 

W  '  w 

OODl' 

CO  008E' 

LBR  PROHPT 

;  ADDED  HERE 

ttttttttttttttttttttttttttt  ;  (PilOUP  ttttotttttxttxttltotltttltltttttxtltt 


383 

; 

384 

Q0D4' 

9ANGGR:  CALL  ITB 

;  LOOX  FOR; 

335 

00D4' 

D4 

+ 

336 

00D5' 

0130’ 

+ 

381 

OODT 

4D 

DB  'N' 

388 

00D8' 

02B7' 

DN  NRITEH 

;  1  HEKORY 

339 

OODA’ 

52 

DB  'R' 

390 

OODB' 

03F5’ 

DN  RUN 

;  1  Run  target  SYStei 

391 

OODD' 

FF 

DB  OFFH 

;  DONE  ;  EXPANSION  CAN  BE 

392 

OODE' 

CO  008E' 

LBR  PROHPT 

;  ADDED  HERE 
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393 

334 

335 
396 


itititoitttttiittiittit  TU  CHARACTER 


337 

OOfii ' 

63 

INCHAR:  IHP  STATl 

333 

00E2' 

F6 

SHR 

CHECX  FOR  DA  IDATA  AVAILABLEl 

333 

30E3' 

33  El’ 

3SF  IHCHAR 

IF  NOT  TRY  CLRBIT 

400 

00E5' 

FA  06 

ANI  06H 

MASK  FOR: 

401 

00E7’ 

32  ED' 

3Z  REEP2 

FRAME  AND  PARITY  ERROR 

402 

00E9' 

6A 

IMP  DATAl 

CLEAR  BAD  DATA 

403 

; 

404 

•  ttill 

f 

405 

OOEA' 

CO  3082’ 

LiR  lOERR  'JSDALLY  'BR  IMCHAR" 

406 

;  3R  INCHAR  lIS  OSED  HERE 

407 

•tittt 

408 

t 

403 

OOED' 

F8  FE 

REEP2:  LDI  LOH  lOLOC 

;  PUT  GOOD  DATA  AT  GP  =  I/O  LCCATI 

m 

OflSF' 

A7 

?LO  CPAGE 

411 

OOFO' 

S7 

SEX  GPAGE 

412 

OOFl' 

6A 

IMP  DATAl 

413 

00F2' 

FA  7F 

ANI  07FH 

:  CLEAR  MSB 

414 

00r4' 

57 

SIR  GPAGE 

;  STORE  AT  GP  I/O  LOCATION 

415 

00F5' 

FB  23 

XRI  't' 

:  IS  IT  ’4’  ? 

416 

00F7' 

C2  0082' 

L3Z  lOERR 

417 

30FA' 

CO  0150’ 

L3R  DEIAY2 

;  2  3IT  DELAY 

418 

* 

419 

t 

420 

■  tototttttitoxitt  CJIPUI  4  3IGITS  70  R;D1  <IN4D>  ““ 

421 

; 

166 

OOFD’ 

.■8  30 

:N4D:  LDI  LOH  30 

423 

OOFF' 

30 

PHI  RD 

;  SET  RID)  =  0030 

424 

3130' 

AD 

?LO  RD 

425 

3101’ 

:N4D2:  call  INCHAR 

426 

0101' 

D4 

- 

427 

3132’ 

OOEl’ 

A 

428 

3134’ 

07 

LDN  GPAGE 

0105' 

F8  00 

XRI  008 

;I.VCHAR  XOX  CR  IS  IT  'C.R 

430 

0107’ 

32  3D’ 

3Z  IN4RET 

:  GP  -)  I/O  LOC. 

431 

0109’ 

■3  2D 

XRI  2DH 

:  ■SPACE’  XCR  CR  IS  IT  ’  ’ 

432 

3103’ 

3A  3E’ 

3SZ  CNVRT 

433 

3100’ 

IN4RET:  EXIT 

434 

3100’ 

D5 

♦ 

435 

; 

436 

437 

310E’ 

CNVRT:  CALL  ASCHEX 

438 

313E’ 

D4 

• 

439 

OlOF’ 

3118’ 

+ 

440 

0111’ 

33  or 

3DF  IN4D2 

441 

CALL  SHFTD4 

442 

0113’ 

D4 

+ 

443 

0114’ 

013A’ 

444 

0116’ 

30  or 

3R  IN4D2 

445 

; 

446 

: 

447 

0118’ 

07 

ASCHEX:  LDN  GPAGE 

448 

0119' 

iC  DO 

ADI  0008 

;  CALLED  BY  CNVRT  AND  !  MEMORY 

KACRO-18  3.36  PA08 

1-3 
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BT02.KAC 

449 

■  0113’ 

■33  37’ 

BNP  HOTHEX 

450 

OllD' 

07 

LDM  SPAGE 

451 

OllE’ 

FD  39 

SDI  039H 

452 

3120’ 

33  30  ’ 

3DF  NUKSER 

453 

0122’ 

07 

LDH  GPAGE 

454 

0123' 

FC  9F 

ADI  OBFH 

455 

0125’ 

33  37  ’ 

ENF  HOTHEX 

456 

0127' 

07 

LDN  GPAGE 

457 

0128’ 

FD  46 

SDI  046fi 

453 

012A' 

33  37  ' 

3NF  HOTHEX 

459 

012C' 

07 

LDH  GPAGE 

460 

012D' 

FC  C9 

ADI  0C9H 

461 

012F' 

33 

SEP 

462 

3130’ 

07 

.YUKBER:  LDH  GPAGE 

463 

0131’ 

FA  OF 

AKI  08FB 

464 

3133' 

57 

STR  GPAGE 

465 

0134' 

FC  00 

ADI  OOOH 

466 

EXIT 

467 

0136' 

D5  * 

468 

0137' 

FF  00 

HOTHEX:  SKI  OOOH 

469 

EXIT 

470 

0139' 

05  + 

471 

. 

472 

; 

473 

013A' 

8C 

SHFTD4:  OLO  RC 

474 

3133' 

52 

STR  STACK 

475 

013C' 

F8  04 

LDI  L08  04H 

475 

013E' 

AC 

PLO  RC 

477 

013?' 

3D 

SHIFT:  GLO  RD 

473 

0140' 

FE 

SHL 

479 

0141' 

AD 

PLO  RD 

480 

0142’ 

9D 

GHI  RD 

0143' 

7E 

SHLC 

432 

0144' 

3D 

PEI  RD 

483 

0145' 

2C 

DEC  RC 

434 

0146' 

3C 

GLO  RC 

435 

0147' 

3A  3F' 

BHZ  SHIFT 

436 

0149' 

02 

LDH  R3 

437 

014A' 

AC 

PLO  RC 

438 

0143' 

E7 

SEX  GP.AGE 

489 

014C' 

8D 

GLO  RD 

490 

314D' 

?1 

OR 

491 

014E' 

AD 

PLO  RD 

492 

493 

494 

495 

496 

497 

498 

499 

500 

501 

502 

503 

504 


014F'  D5 


0150' 

0152’ 

0154' 

0155' 

0156’ 

0157’ 


rS  80 
?F  01 
C4 
C4 
C4 

3A  52' 


:  CLEAR  DF 


:  SET  DF 


EXIT 


I1ELAY2:  LDI  L08  8QH 
8AIT3:  SKI  OlH 
HO? 

HOP 

HOP 

BIZ  HAIT3 


IHSTRUKEHT  SPECIFIC: 

aOH  »  10.8  «Sec  FOR 
1.2288  KHz  SYSTEM  CPU  CLOCX 


PAGE  1-9 

20  FEB  1986  BTU2.NAC 


ADI  QOH 
EXIT 


:  CLEAR  DF 


MACRO-18  3.36 
BTO  SAIL  MONITOR 


505 

506 

507 
503 

509 

510 


0159'  FC  00 
0153'  D5 


tttittttttttttttttttti 


IN  KEY  NORD 


ttttttittitttttittttttttttt 


511 

512  015C' 


INXND:  CALL  INC3AR 


513 

015C' 

D4 

■f 

514 

015D' 

OOEl' 

♦ 

515 

015F' 

CB  016B' 

LBNF  TMATCH 

516 

0162' 

46 

?LIST: 

LDA  LIST 

517 

0163' 

F3  FF 

XRI  OFFH 

513 

0155' 

CA  0162' 

LBNE  PLIST 

519 

0163' 

16 

INC  LIST 

520 

0169' 

16 

INC  LIST 

521 

EXIT 

522 

016A' 

D5 

t 

523 

; 

524 

015B' 

07 

TMATCH: 

LDN  GPAGE 

525 

016C' 

E6 

SEX  RTNPTR 

526 

016D' 

F3 

XOR 

527 

016E' 

CA  0162' 

LBNE  PLIST 

528 

0171' 

16 

HATCH: 

INC  LIST 

529 

0172' 

06 

LDN  LIST 

530 

0173' 

F3  FF 

XRI  OFFH 

531 

0175' 

CA  015C' 

L3NZ  INKHD 

532 

0178' 

16 

IK  LIST 

533 

0179' 

46 

LDA  RTNPTR 

534 

0i7A' 

52 

STR  STACK 

535 

0173' 

46 

LDA  RTNPTR 

536 

017C' 

A6 

?LO  RTNPTR 

537 

0170' 

02 

LDN  STACK 

533 

017S' 

36 

PHI  RTNPTR 

539 

EXIT 

540 

017F' 

05 

* 

541 

542 

* 

543 

.  atttttttttttKtak 

544 

; 

545 

: 

546 

0180' 

ITB: 

CALL  INCHAR 

547 

0130' 

04 

* 

548 

0131' 

OOEl' 

t 

549 

0133' 

11 

SEX  GPAGE 

550 

0134' 

46 

HEXT2: 

LDA  LIST 

551 

0135' 

FB  FF 

XRI  OFFH 

552 

0137' 

CA  0183' 

LBNE  TEST 

553 

EXIT 

554 

018A' 

D5 

f 

555 

; 

556 

018B' 

FB  FF 

TEST: 

XRI  OFFH 

557 

018D' 

F3 

XOR 

558 

018E' 

C2  0196' 

LBZ  MATCH2 

559 

0191' 

16 

INC  LIST 

560 

0192' 

16 

INC  LIST 

;  IS  IT  FF  ? 

;  GOES  TO  LBR  AT  END  OF  LIST 

;  GPAGE  =  I/O  LOC. 

;  I/OLOC  =  LIST  ? 


;  GOES  RETURN  INDICATED  AT  LIST  END 


*“•  INPUT  TEST  AND  BRANCH 


;  IS  LIST  FF  ? 


:  DOES  CHAR  =  LIST  ? 


'v 
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561 

0193’ 

CO  0184’ 

L3R  NEXT2 

562 

0196' 

46 

MATCHO:  LDA  RTSPTR 

f 

563 

0197' 

52 

STR  STAGE 

564 

0198’ 

46 

LDA  RTSPTR 

565 

0199’ 

A6 

PLO  RTSPTR 

566 

019A’ 

02 

LOH  STAGE 

567 

019B’ 

36 

PHI  RTSPTR 

568 

EXIT 

569 

019C' 

D5 

T 

570 

571 

• 

572 

•ttttttiktttttttttttttttttikttttti  TTY  kkiittttiktttttttttttttitttkttttttiitkttt 

573 

574 

575 

019D’ 

F8  FE 

TTY:  LDI  LOS  lOLOC 

576 

019F’ 

A7 

PLO  GPAGE 

:TTY  CHECES  FOR  THE  FOLLOSING  PSOEDO  OPS  IN  LIST: 

577 

OlAO’ 

46 

HEXT3:  LDA  RTSPTR 

578 

our 

FB  FF 

XRI  OFFH 

;IS  IT  FF?  :  ASCII  CHAR  ->  TYPES  IT 

579 

01A3’ 

3A  A8’ 

BSZ  TEST80 

;  30 

=  ASCII  1  RD.l 

:a0 

01A5’ 

FC  00 

ADI  003 

; CLEAR  OF  ;  31 

=  HEX  PAIR  1  RD.l 

581 

EXIT 

2nd  CALL  SENDS  HXPR  »  RD.O 

582 

01A7’ 

D5 

+ 

583 

01A8’ 

FB  7F 

TEST80:  XRI  07FH 

;80  XOR  FF  ;  30 

=  HEX  PAIR  i  M(RD),  ISC  RD 

584 

OlAA’ 

3A  35' 

aSZ  TEST81 

:IS  IT  80?  ;  CA 

=  TYPES  CR,  LF 

585 

OlAC’ 

90 

ASCRDl:  GHI  RD 

:  90 

=  CALLS  IS40 

586 

OlAD’ 

57 

STR  GPAGE 

;  00 

=  DECIMAL  *  MlROl  (00-991 

587 

OlAS' 

80 

GLC  RO 

:  A1 

=  SEND  HI  HX  HI33LE  i  M!RD) 

588 

OlAF’ 

30 

PHI  RD 

:  A2 

=  SEND  LO  HX  NIBBLE  i  MIROMSC  30 

589 

0130’ 

0UTPT2:  CALL  00TC3R 

•  rr 

=  DONE  (END  OF  LIST! 

590 

0130’ 

04 

• 

591 

0131' 

0249' 

r 

592 

0133' 

30  AC 

3R  SEXT3 

•  >tti 

ttttttlttlttttliltSttltltttttttltt 

593 

; 

534 

0135’ 

FB  01 

TEST8I:  XRI  iSlH  XOR 

30H)  ;31  XOR  30 

595 

0137' 

CA  0104’ 

L3HZ  TESTED 

;IS  IT  31? 

596 

313A' 

90 

3EXRD1:  GHI  3D 

597 

0133' 

E2 

SEX  STAGE 

598 

013C’ 

73 

STXO 

599 

OIBD’ 

80 

GLO  RD 

600 

013E’ 

30 

PHI  RD 

601 

013F’ 

12 

OUTHEX:  ISC  STAGE 

602 

OICO' 

02 

LDS  STAGE 

603 

Old’ 

22 

DEC  STAGE 

604 

0:C2’ 

?6 

SHR 

605 

01C3' 

F6 

SHR 

606 

01C4’ 

F6 

SHR 

607 

01C5' 

F6 

SHR 

608 

01C5’ 

57 

STR  GPAGE 

609 

GALL  3XCONV 

610 

01C7' 

04 

611 

01C8' 

0222' 

t 

612 

OICA’ 

12 

ISC  STAGE 

613 

OICB' 

02 

LDS  STAGE 

614 

OICC 

FA  OF 

All  OFH 

615 

OICE’ 

57 

STR  GPAGE 

616 

GALL  HXGOIY 
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617 

OICF' 

D4 

613 

OIDO' 

0222' 

- 

619 

01D2' 

30  AO' 

3R  .YEXT3 

620 

1 

621 

01D4' 

FB  OC 

:EST8D; 

XRI  18DH  XOR  31HI 

622 

fllD8' 

3A  DD' 

BUZ  TESTCA 

523 

01D8' 

4D 

LDA  RD 

524 

01D9’ 

E2 

SEX  STACK 

625 

OIDA' 

73 

STXD 

628 

OIDB' 

30  3F' 

3R  OUTEEX 

627 

1 

628 

OIDD' 

FB  47 

TSSTCA: 

XRI  (OCAH  XOR  3DE) 

629 

OIDF' 

3A  S9' 

3HZ  TEST9D 

630 

OlEl' 

QUTCA: 

CALL  TTY 

631 

OlEl' 

D4 

T 

632 

01E2' 

019D' 

+ 

633 

01E4’ 

ODOA 

D»  ODOAE  ;CR,Lf 

634 

01S6' 

FF 

D6  DONE  ;DONE 

635 

01E7' 

30  AO' 

3R  XEXT3 

638 

837 

01E9' 

FB  57 

TEST9D: 

XRI  (9DE  XOR  OCAH) 

833 

OlEB' 

3A  F2' 

3HZ  TESTED 

639 

CALL  I84DT? 

840 

OlED' 

D4 

t 

641 

OlEE' 

0234’ 

* 

642 

OlFC 

30  AO' 

3R  .VEXT3 

643 

1 

644 

31F2' 

FB  40 

TESTOD: 

'XRI  ODDE  XOR  303) 

645 

01F4' 

CA  OlFD' 

LBNZ  TESTAl 

646 

01F7' 

4D 

LDA  RD 

847 

31F3' 

F9  30 

ORI  030H 

648 

fllFA' 

CO  3::e’ 

L3R  30TPT1 

649 

; 

650 

OlFD’ 

FB  3C 

TESTAl: 

XRI  iOAl’H  XOR  09DH) 

651 

OlFF’ 

CA  320E' 

LBNZ  TESTA2 

652 

3202' 

OD 

LDN  RD 

653 

0203' 

F6 

SER 

654 

0204' 

F6 

SER 

655 

0205' 

F6 

SHR 

656 

0206' 

F6 

SER 

657 

0207' 

57 

STR  GPAGE 

653 

CALL  HXCONV 

659 

3208' 

D4 

T 

660 

0209' 

0222' 

t 

661 

3208' 

CO  OlAO' 

L3R  SEXT3 

682 

683 

020E' 

FB  03 

TESTA2: 

XRI  I0A2H  XOR  OAIH) 

884 

0210' 

3A  IC 

3HZ  3DTASC 

885 

0212' 

4D 

LDA  RD 

888 

0213' 

FA  OF 

ANI  OFH 

667 

0215' 

57 

STR  GPAGE 

688 

CALL  HXCONV 

869 

0218' 

04 

+ 

670 

0217' 

0222' 

671 

0219' 

CO  OlAO' 

LBR  NEXT3 

672 

t 

;3D  XOR  81 

;IS  17  3D  ? 


:CA  XOR  8D 
:is  IT  CA  ? 


;9D  XOR  CA 
:IS  IT  9D  ? 

;  OHLY  CALL  OF  IS4DT? 


;DD  XOR  ED  CS  TI  CD  ’ 


;:s  :t  ai? 


;IS  IT  A2? 

iSXTEXD  TTY  R/  3RASCH  FROK  HERE 
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•"O 

r — 

VO 

021C’ 

26 

574 

021D' 

46 

57: 

021E' 

57 

676 

321F' 

CO  0130' 

0  •  / 

573 

579 

0222' 

07 

580 

0223' 

FC  F6 

581 

0225' 

C3  0230' 

582 

0228' 

37 

533 

0229' 

F9  30 

584 

022B' 

57 

685 

535 

022C' 

D4 

c  — 

vO 

022D' 

0249' 

588 

689 

022F' 

D5 

690 

591 

0230' 

FC  41 

592 

0232' 

30  2B' 

593 

594 

595 

696 

5  7  / 

598 

3234' 

599 

3234' 

34 

700 

3235' 

023A' 

701 

3237  ' 

CO  OOFD' 

’02 

703 

’04 

705 

’07 

323A' 

E2 

703 

3239' 

5A 

709 

023C' 

53 

710 

023D' 

FA  CO 

711 

323F' 

FB  CO 

712 

0241' 

3A  3B' 

713 

714 

0243' 

D4 

715 

0244' 

0150' 

"16 

3246' 

E2 

! .  1 

3247' 

5A 

713 

719 

0248' 

D5 

720 

721 

722 

723 

724 

725 

0249' 

6B 

726 

024A' 

FA  OC 

727 

024C' 

CA  0082 

728 

024F’ 

02 

flUTASC:  DEC  RTNPT8 
LDA  RTSPTR 
QUTPTl:  STR  GPAGE 
LBR  OOTPT2 


i 

3XCONV:  LDH  GPAGE  ;OSLY  USED  BY  TTY 
ADI  0F6H 
LBDF  GTR9 
LDN  GPAGE 
ORI  03QH 
STORE;  STR  GPAGE 
CALL  OUTCHR 


EXIT 


GTR9;  ADI  041H 
3R  STORE 


IX4DT?;  CALL  TSRE? 


LBR  IS4D 

ttttttttitttttttttt  •liAi'j  ;OX  IRANS.  SER,  REG.  EMPTY 

1  LOOP  1  i 

CALLED  BY  PROMPT,  TEST  OX, 

AND  :XD4ISRE,  AND  PASSTHRU 
CLEAR  DA  iDATA  AVAILABLE; 

;  MASK  FOR  TSRE  i  THRE 
:  TSRE  =  THRE  =  1  ? 

:  2  BIT  DLY 


;  CLEAR  ECHO  DA 


TSRE?:  SEX  ST.ACK 
«AIT4:  IMP  DATAl 
INP  STATl 
AMI  OCOH 
XRI  OCOH 
BNZ  HAIT4 
CALL  DELAY! 


SEX  STACK 
ISP  DATAl 
EXIT 


j tittttttttttiittttittttitt  smi,  gu'j  CHARACTER 
:  (  LOOP  1  1 

OUTCHR:  ISP  STATl 
ASI  OCH 
L3IIZ  lOERR 
THRE?:  LOI  STACK 


;  CHECK  PREVIOUS  I/O  ERROR 
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729 

0250' 

FE 

SHL 

;  CHECK  THRE 

730 

0251' 

CB  0249' 

L3NF  OUTCHR 

:  XAIT  FOR  CART  READY 

731 

0254' 

E7 

;ex  GPAGE 

732 

0255' 

■3  FE 

LDI  LCif  lOLflC 

733 

0257' 

A7 

PLO  GPAGE 

734 

0258' 

62 

OCT  DATA! 

;  LOAD  ’JART  FROM  I/O  LOCATION 

735 

0259' 

27 

DEC  GPAGE 

736 

325A' 

FC  00 

A3I  008 

;  CLEAR  DF 

737 

EXIT 

738 

025C' 

05 

+ 

739 

; 

740 

t 

741 

742 

743 

•  iititittttfttttfttititftttttt  ^03017  routi&s  ‘****‘^* 

; 

744 

0250' 

QUESTK:  CALL  1840 

745 

0250' 

34 

+ 

746 

025E' 

OOFD' 

r 

747 

0260' 

£2 

SEX  STACK 

748 

0261' 

83 

GLO  RD 

749 

0262' 

73 

STXD 

750 

0263' 

9D 

GHI  RD 

751 

0264' 

73 

STXD 

752 

CALL  IN4D 

753 

0265' 

04 

+ 

754 

0266' 

OOFD' 

• 

755 

0268' 

9D 

GHI  RD 

756 

0269' 

BE 

PHI  RE 

757 

026A' 

8D 

GLO  RD 

758 

0263' 

AE 

PLO  RE 

759 

026C' 

12 

ISC  STACK 

750 

0260' 

42 

LDA  STACK 

751 

026E' 

3D 

PHI  RD 

762 

026?' 

02 

LDK  STACK 

763 

0270' 

A3 

PLO  RD 

764 

CALL  3ELAY2 

765 

0271' 

D4 

766 

0272' 

0150' 

+ 

767 

0274' 

E2 

CUTADR:  SEX  STACK 

■’58 

0275' 

3D 

GLO  RD 

769 

0276' 

73 

STXD 

770 

0277  ' 

9D 

GHI  RD 

771 

0278' 

73 

STXD 

772 

CALL  TTY 

773 

0279' 

D4 

774 

027A' 

019D' 

+ 

775 

027C' 

CA 

DB  OCAH 

776 

027D' 

81 

D8  0818 

;  TYPE:  CR,  LF,  NULL  X  6, 

777 

027E' 

81 

DB  031H 

778 

027P' 

20 

DB  020H 

:  OUT  HEX  PR  X2,  SPACE 

779 

0280' 

FF 

DB  OPFH 

;  30SE 

780 

0281  ' 

12 

INC  STACK 

781 

0282' 

42 

LDA  STACK 

782 

0283' 

BD 

PHI  RD 

733 

0284' 

02 

LDI  STACK 

784 

0285' 

AD 

PLO  RD 
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785 

0286’ 

3E 

REXBYT:  CLQ  RE 

736 

0287' 

3A  3D' 

BNZ  DECCST 

737 

3239' 

9E 

031  RE 

738 

923A' 

C2  008E' 

L3Z  PROMPT 

739 

0230' 

2S 

DECCNT:  DEC  RE 

790 

CALL  TTY 

791 

028E' 

04 

T 

792 

028F' 

D19D' 

+ 

793 

0291' 

8DFF 

DR  3DFFH 

TYPE:  ODT  HEX  RD,  DOSE 

794 

0293' 

3D 

GLO  RD 

795 

0294' 

FA  OF 

AHI  OOFH  : 

MASX  FOR  LINE  LENGTH 

796 

0296' 

C2  02A6' 

LBZ  LNTEST  : 

07  =  08H  /  LINE 

797 

0299' 

FA  01 

ANI  OlH  : 

OF  =  lOH  /  LINE 

798 

029B' 

CA  0286' 

LBHZ  SEXBYT 

799 

CALL  TTY 

800 

Q29E' 

D4 

T 

801 

029F' 

019D’ 

+ 

302 

02A1' 

20FF 

DR  20FFH  ; 

TYPE:  SPACE,  DONE 

803 

02A3' 

CO  0236' 

LBR  SEXBYT 

804 

02A6' 

3E 

LHTEST:  GLO  RE  ; 

TEST  FOR  END  OF  LINE 

805 

02A7' 

3A  AF' 

BHZ  LNEHO 

806 

02A9' 

9E 

G3I  RE 

807 

02AA' 

3A  AF' 

3MZ  LMEMD 

808 

02AC' 

CO  0Q8E' 

LBR  PROMPT 

309 

32AF' 

LSEHD:  CALL  TTY  : 

TYPE:  '  ',  DONE 

810 

02AF' 

04 

♦ 

311 

02B0' 

315D' 

T 

812 

0232  ' 

3BFF 

OR  35FF3 

813 

02B4' 

CO  0274’ 

LBR  O'JTADR 

814 

• 

81: 

316 

1  Meiory  Rouciae  «««««•««•««•<««««>««««««««-«•««««•>“ 

317 

813 

; 

319 

0237’ 

•8  03 

RRITSM;  LDI  LOB  3YSFLG 

820 

0239' 

A7 

?LO  GPAGE 

321 

023A' 

07 

LDS  GPAGE 

CHECK  FOR  'JNLOCK  FLAG 

822 

02BB' 

FA  40 

AMI  40E 

GO  TO  SAY  NO  IF  LOCKED 

323 

029D' 

C2  03F8' 

LBZ  SAYMO 

824 

02C0' 

ISAODR:  RLOI  RD,  0000 

BAIT  FOR  NUMERIC  INPUT 

825 

02C0' 

63  CD 

T 

826 

02C2' 

0000 

+ 

827 

CALL  INCHAR 

823 

02C4' 

D4 

t 

329 

32C5' 

OOEl’ 

t 

330 

CALL  ASC3EX 

331 

02C7' 

D4 

+ 

332 

32C8' 

0118' 

+ 

333 

02CA' 

33  CO' 

BDF  INAODR 

334 

CALL  SHFTD4 

PUT  ADDRESS  POINTER  IN  RIE) 

335 

02CC' 

D4 

+ 

336 

02CD’ 

013A’ 

r 

337 

CALL  IN4D2 

333 

fl2CF' 

D4 

+ 

839 

02DO' 

olor 

+ 

340 

02D2' 

9D 

GBI  RD 
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541 

0223' 

BE 

PHI  RE 

342 

j2D4‘ 

33 

ArijO  RD 

J 

V  A  D  «« 

AE 

PLO  RE 

:44 

0236' 

ISIS?:  CALL  I.HCHAR 

545 

0236' 

D4 

- 

346 

0237' 

OOEl' 

T 

347 

0239' 

07 

;jjN  iiPAGt 

348 

023A' 

J ^  j6 

3Z  INIST 

:  IGNORE  NULLS  INULL 

345 

CALL  ASCHEX 

350 

02BC' 

34 

+ 

351 

0233' 

0118' 

r 

352 

02BF' 

33 

3DF  TESTS? 

;  3F  =  NOT  .REX 

353 

02E1 ' 

*  7 

liDN  GPA^t 

354 

J  bud 

AB 

PLO  RD 

:  SAVE  10  DIGIT 

izl 

02E3' 

INCXD;  CALL  INCHAR 

356 

02E3 

34 

♦ 

35 ' 

02E4' 

OOEl' 

t 

358 

CALL  ASCHEX 

359 

02-6' 

34 

- 

360 

"'7*7  • 

«  A*J 

0113' 

- 

361 

02E9' 

33 

3DF  ERROR 

362 

CALL  3HFT34 

363 

02E3 ' 

34 

• 

364 

02SC' 

j13A' 

- 

255 

jIIV 

3u 

OLO  RD 

i05 

<,L! 

:E 

STR  RE 

;  'iP.ITE  in::  rax 

FT 

-- 

ISC  RE 

;co 

«  b  *  • 

j  •  • « 

3R  ixis: 

4  " 

02"3' 

iRRCR:  wALu 

2  * ' 

l'‘7‘  ' 

•  <<  4  • 

34 

- 

•  - 

«  i>  *  1 

• 

i": 

*x  4  4 

.4! 

•  "*777  • 

1  • 

32-:' 

•  1 

■ 

3 

4  .  -  •  1 

• 

576 

<>  4  7 

■  r  ■'.  ? 

3V  2?3:H 

•  T  : 

:2r5' 

77 

33  jO.se 

:  BONE 

3"3 

Ji.!  •, 

2  w  .  • ;  1 ' 

L3R  PRCNFT 

3"5 

: 

333 

4  ** 

TESTS?:  LBN  OPAGE 

:  TEST  .■CR  TEIIXITCRS 

•i  »i  «  J 

:s 

xr:  2:h 

:  aIR  '3?.n2E' 

.  J  ^ 

<.  d  .  6  JC 

153  IN’IST 

;Tj 

*.21:’ 

:5  22 

777  ‘r*,* 

,  XCR  IrACE' 

«  C  i 

.j*. 

-iS-  iE.N*: 

375 

CALL  PASS'A 

336 

OOOA' 

j  t 

♦ 

33" 

OOOB' 

1  2  2  4 ' 

- 

333 

j  3CD 

4  M  •  4  ^  1 

«  J  ¥  OjO 

L3R  INIST 

339 

V  j  i 

?9  1' 

sex:?:  xr:  i:"h 

;  ' ; ’  V^5 

390 

1212' 

3A  ;A' 

3N3  test:?. 

391 

CALL  PASSCA 

332 

03:4' 

34 

• 

393 

•'v  ;• 

*  ^  ^ 

0  324' 

• 

334 

/•«  T 

^  J  J  6  v  J 

L3R  ISA3DR 

395 

:yA' 

•3  36 

TESTCR:  'XRl  036H 

:  'OR'  XCR  :' 

396 

131C' 

:A  02P3' 

L3NZ  ERROR 

I 
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397 

031F' 

?C  30 

ADI  OOH 

;  IF  NO  ERROR,  CLEAR  3F 

393 

0321' 

CO  008E' 

L3R  PROMPT 

:  GO  TO  PROMPT 

399 

1 

900 

0324' 

PASSCA;  CALL  INCHAR 

;  O.NLY  USED  3Y  :M 

901 

0324' 

34 

931 

0325' 

OOEl'  -r 

903 

3327' 

07 

LDN  GPAGE 

904 

0328' 

■3  OD 

XRI  ODH 

:  IS  IT  'CR'  ? 

90: 

032A' 

CA  3324' 

L3NZ  PASSCA 

906 

032D' 

INLF:  CALL  INCHAR 

907 

0323' 

34  + 

903 

032E' 

OOEl'  + 

909 

0330' 

37 

LDN  GPAGE 

913 

0331' 

■3  OA 

XRI  OAH 

:  IS  IT  'LF'  ? 

911 

0333' 

3A  2D' 

3NZ  INLF 

912 

EXIT 

913 

0335' 

35  + 

911 

915 

916 

•ttttkttttktkkttttkttttttttitttt  ^OVE  kktktttttkttkkxtkttkttkkitktkkkitttttktttt 

917 

* 

913 

3336' 

MOVE:  CALL  TTY 

D3  'ove  froa  ' 


33  STX 
DM  D90fFH 

5a:  aD 

PHI  U 
5LO  RD 
?LO  RA 
CALL  TTY 


i/3  0 

33  iTX 
3H  OHuFrH 
cai  RD 
PHI  RB 
5L0  RD 
PLO  R3 

-  \  r  •  ■*»pv 

>.Auj  .  *  ! 


919 

0336' 

34 

920 

0337  ' 

0190' 

921 

3339' 

6F  76  65 

922 

0333' 

56  72  5F 

923 

0  341' 

20 

924 

0342' 

03 

925 

3343' 

5DF: 

926 

0345' 

9D 

927 

0346' 

3A 

923 

3347' 

3D 

929 

3348' 

AA 

930 

931 

0349' 

34 

932 

034A' 

■■•an' 

M  A  *  y 

an 

aJiv. 

74  5F  20 

934 

034:' 

03 

935 

0350' 

9DF: 

936 

0352' 

90 

937 

03  53' 

33 

933 

03  54' 

3D 

939 

0’55' 

A3 

940 

541 

0  356' 

;4 

942 

3357 ' 

019D' 

943 

0359' 

6C  55  6E  57 

944 

0350' 

■4  53  20 

945 

0360 ' 

03 

946 

947 

0361' 

90FF 

943 

0363  ' 

34 

949 

0364' 

3407' 

350 

951 

3366' 

C3  308E' 

33  'length 

33  ETX 
D’a  39DFF3 
CALL  OX? 


LaHF  PROMPT 


:recur3  to  proipt  if  no  flag 


I 

I 
I 

I 


rw 


L 


I 

I 

I 


I 

I 


«Aao-13  3.36 
3TU  SAIL  MONITOR 


PAGE 
20  FEB  1986 


1-17 

BTU2.MAC 


953 

036A’ 

53 

STR  RB 

954 

•3363' 

13 

ISC  RB 

?5: 

3350' 

23 

DEC  RD 

955 

336D' 

9D 

GHI  RD 

957 

036E' 

3A  69’ 

3N2  MOV 

958 

0370’ 

8D 

GLO  RD 

959 

0371' 

3A  69' 

3MZ  MOV 

960 

CALL  TTY 

961 

0373' 

D4 

962 

0374’ 

019D' 

• 

963 

0376’ 

07FF 

DR  07FFH 

964 

0373' 

CO  OOSE’ 

MOVRTS;  LBR  PROMPT 

965 

; 

966 

967 

■  iiiottoitxtxt 

968 

969 

970 

9373’ 

VERFY:  CALL  TTY 

971 

0373' 

D4 

r 

572 

0370' 

019D' 

T 

973 

037E' 

65  72  63  66 

OB  'erify 

974 

0332' 

79  20 

975 

3384' 

03 

OB  ETX 

976 

0335' 

9DFF 

DR  09DFFH 

977 

3337' 

5D 

•3HI  RD 

973 

0338' 

BA 

PHI  RA 

979 

0389' 

80 

GLC  RD 

930 

332A' 

AA 

PLO  RA 

931 

CALL  TTY 

982 

3333' 

-1  4 

t 

- 

933 

3330' 

3190' 

- 

934 

338E' 

77  59  74  63 

OB  ’»it5  ' 

935 

33  92' 

23 

936 

0393' 

^  * 

OB  ETX 

937 

3394' 

OOF? 

OR  39DFFH 

933 

3  396' 

90 

GHI  RD 

939 

3397' 

3B 

PHI  RB 

990 

3393  ’ 

3!1 

vy 

GLO  RD 

391 

0399' 

A3 

PLO  R3 

992 

CALL  TTY 

993 

339A' 

04 

- 

394 

339B' 

3130' 

♦ 

995 

3390' 

6C  65  5:  57 

03  ".engih 

396 

33A1' 

'4  58  20 

39-' 

33A4’ 

33 

OB  ETX 

998 

33A5' 

9DFF 

OR  09DFFH 

999 

03A7' 

30 

■GHI  RD 

1900 

33A3' 

3C 

PHI  RC 

1301 

33A9' 

83 

GLO  RD 

1032 

33AA' 

AC 

PLO  RC 

1333 

1934 

03A3' 

9C 

•/NEXT:  GHI  RC 

1305 

03AC' 

3A  3D' 

3NZ  VMORE 

1336 

02AE' 

3C 

GLO  RC 

1307 

33AF' 

3A  30' 

3MZ  VMORE 

1308 

CALL  TTY 

;ST0SE  'ysRIFY'  GSCL?  >.ZjI  I'i  U 


: STORE  'KITH'  group  in 


:  STORE  LENGTH  IS  RO 
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1009 

03B1' 

04 

+ 

iOlO 

0332’ 

0190’ 

r 

ILll 

0334' 

20  44  4F 

4E 

03  ’  DOSE' 

1312 

0338’ 

45 

1013 

0335’ 

FF 

03  DONE 

1014 

033A’ 

03  903E’ 

LBR  ?itO«PT 

»  W  ^  w 

1016 

033D’ 

E3 

VNQRE: 

SEX  SB 

101; 

033E' 

OA 

LDN  RA 

1013 

033F’ 

F3 

XOX 

1013 

33C0' 

3A  or 

3SZ  VBAD 

1020 

03C2’ 

lA 

VOONT: 

ISO  RA 

1021 

03C3’ 

IB 

INC  RB 

1022 

03C4’ 

20 

OEC  RC 

1023 

03C5’ 

30  A3’ 

3R  VNEX7 

1024 

1025 

03C1' 

E2 

';3AD: 

SEX  STACX 

;  OUTPUT  3AD  LOCATIONS  AND  CONTENTS 

1026 

0308’ 

9A 

G3I  RA 

1021 

0309’ 

30 

PHI  RO 

1023 

030A’ 

3A 

GLO  RA 

1029 

0303’ 

AD 

PLO  RD 

1030 

CALL  TTY 

1031 

0300' 

04 

t 

1032 

3300’ 

0190’ 

•f 

1033 

03CF’ 

CA81 

OH  3CA813 

;  REG  A  ADDRESS 

1034 

0301' 

4  A  A  U 

ON  081203 

1035 

0303’ 

?: 

03  0FF3 

1036 

0004’ 

3A 

GHI  RA 

« 'J  J  •' 

0305’ 

30 

PHI  RD 

1033 

3306’ 

8A 

GLO  RA 

1039 

3301’ 

AO 

PLO  RO 

1040 

CALL  TTY 

1041 

3302’ 

04 

* 

1042 

3309’ 

0190’ 

* 

1043 

03DB’ 

3D23 

ON  38D20H 

;  REG  A  CONTENTS 

1044 

0300’ 

20FF 

ON  020FF3 

1045 

03DF’ 

93 

GHI  SB 

1046 

33E0' 

30 

PHI  RD 

1041 

93E1’ 

83 

GLO  RB 

1048 

03E2’ 

AD 

PLO  RO 

1049 

CALL  TTY 

1050 

03E3’ 

04 

t 

•  <  2  i 

33E4’ 

0190' 

♦ 

1052 

33E6’ 

3020 

ON  33D20H 

:  REG  3  CONTENTS 

1053 

03E8’ 

FF 

OB  OFFH 

1054 

03E9’ 

93 

GHI  RB 

1055 

33SA’ 

30 

PHI  RD 

1056 

33E3’ 

33 

GLO  RB 

1051 

OOEC 

AD 

PLO  RD 

1058 

CALL  TTY 

1059 

03ED' 

04 

+ 

1060 

03EE’ 

0190’ 

4 

1''61 

03F0’ 

3131 

DN  08181H 

;  REG  3  ADDRESS 

I0d2 

03F2’ 

FF 

DB  OFFH 

1063 

03F3' 

30  02’ 

3R  VOONT 

1064 

; 

1 
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f 

■  ttttttttitttktttttttttttt  i(u]|  7XRGET  SYSTEM 

t 

1  1066 

■  1069 

1073 

1  1071 

1  1072 

1073 

33?5' 

10  031F 

RON:  L3R  TARADR 

; itttttitttittiititttittttttttt  NO  :  *>>><>>*><<<<**<<<<<><<“><>><<<><>>>< 

,  1074 

03F8’ 

SAY.no  :  CALL  DELAY2 

1075 

03Fa' 

04 

+ 

1076 

1077 

33F9' 

3150' 

+ 

CALL  TTY 

1073 

33F9' 

D4 

T 

1079 

03FC' 

0190' 

1050 

33FS' 

204E 

on  204EH  ;  TYPE;  SPACE  No  ; 

1061 

0400' 

6F20 

DN  6F20H  ;  DONE 

;  1082 

0432' 

21FF 

ON  21FFH 

1033 

,  1084 

1  1085 

*  1036 

1037 

1  1033 

0404' 

CO  3Q8E' 

LBR  PROMPT 

•  tktkfttftfttftkkftiktitttt  ?  1 1 1 1 1 k 1 1 1 1 1 1 1 1 1 1 1 k k t k t tt 1 1 

1  1039 

3407' 

OR?:  CALL  TSRS? 

1390 

3407' 

04 

- 

M  1091 

1  1092 

3433' 

^*u• 

CALL  TTY  ;TY?E:  Ok  ?  , 

■  1393 

340A' 

04 

♦ 

1094 

04OB' 

3190' 

* 

1  1095 

3400' 

20  4F  63  13 

OB  '  Ok  ?  ■ 

-  1096 

0411' 

3F  20 

1097 

0413' 

03 

OB  ETX 

1  1098 

1  1099 

3414' 

r  r 

OB  OOHE  ;  OCNE 

1130 

3415' 

YES?:  CALL  TSRS? 

1  liOl 

3415' 

04 

♦ 

1  1132 

'  1103 

0416' 

323A' 

CALL  INCHAR 

1104 

0418' 

04 

- 

'  1105 

0419' 

33:1' 

- 

1136 

0413' 

07 

LDN  GPAGE 

113/ 

341C' 

:3  59 

YRI  359H  :  7.GR  "i"  IS  IT  'lES  ' 

!  ;;i! 

Jilt' 

CA  3424' 

LBNZ  NO 

1110 
« 1 1  • 

1 

0421' 

:F  30 

ORRTN:  SMI  003  :  SET  OF 

EXIT 

1112 

3423' 

05 

r 

*  1113 

1114 

3424' 

FC  03 

NO:  ADI  OOH  :  CLEAR  OF 

EXIT 

1 

1117 

■  ■ 

1  1119 

0425' 

05 

♦ 

;kkkkkkkkkkttkkkkkkkk  5  p  PROGRAM  AT  AAAA 

I 
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1121 

1122 

0427' 

■8  03 

TESTS; 

LDI  LON  SYS! 

i.i.A  J 

0429' 

A7 

PLO  GP.A&E 

1124 

042A' 

07 

LDN  SPACE 

1125 

0423' 

?A  EO 

ANI  OEOB 

1126 

042D' 

FB  SO 

XRI  0E03 

il27 

fl42F' 

CA  03F8' 

L3H1  SAYNO 

1128 

0432' 

INS: 

CALL  IN4D 

1129 

0432' 

D4 

+ 

1130 

0433' 

OOFD' 

+ 

1131 

3435' 

9D 

SHI  RD 

1132 

0436' 

BE 

PHI  RE 

1133 

0437' 

3D 

3LC  RD 

1134 

0438' 

AE 

PLO  RE 

1135 

CALL  TTY 

1136 

0439' 

34 

f 

1137 

043A' 

019D' 

+ 

1138 

043C' 

2081 

DN  2081H 

1139 

043E' 

312C 

DN  312CH 

1140 

0440' 

FF 

OB  OFFH 

1141 

CALL  OR? 

1142 

0441' 

D4 

1143 

0442' 

0407' 

1144 

0444' 

CB  008E' 

LBNF  PROMPT 

1145 

0447' 

SEX  STACK 

1146 

0448' 

36 

GLO  RTNPTR 

1147 

0449' 

73 

STXD 

1148 

344A' 

96 

GHI  RTNPTR 

1149 

0443' 

73 

STXD 

1150 

044C' 

3E 

GEI  RE 

1151 

044D' 

36 

PHI  RTNPTR 

*  1 3  2 

044E' 

jE 

GLO  RE 

11:3 

044;' 

A6 

PLO  RTNPTR 

1154 

04  50' 

FC  00 

ADI  00 

1155 

EXIT 

1155 

0452 ' 

3,5 

* 

;  SfiSK  rOii  ADDR,  HRITS,  SYS  -LAGS 
;  ADDR  =  RRITE  =  SYS  =  1  ? 


TYPE;  SPACE, 

OUT  HEX  PR  ' 
DOSE 


:  X  =>  R2 


:  CLEAR  DP 


11:7 

::53 

1159 

IloO 


■  tttititttxiittttittitit  OALCULATIOS 


.4.0i 


1152 


1153 

0453' 

CRC: 

CALL  TTY 

;TY?E: 

1154 

0453' 

D4 

♦ 

1155 

0454' 

01 9D' 

♦ 

1166 

0456' 

52  43  20 

DB  'RC  ■ 

* 

RC  fr 

1167 

0459' 

66  72  5F  5D 

DB  'froi  ' 

* 

ETX, 

1163 

345D' 

20 

1169 

045E' 

03 

DB  03H 

; 

:n4d, 

1170 

045F' 

9DFF 

DN  9DFFH 

* 

DOSE 

1171 

0461' 

9D 

GHI  RD 

1172 

0462' 

BE 

PHI  RE 

11:3 

0463' 

8D 

GLO  RD 

1174 

0464' 

AE 

PLO  RE 

1175 

CALL  TTY 

iTYPE: 

1176 

0465' 

D4 

* 
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20  FEB 

1177 

0466' 

019D' 

1178 

0463  ’ 

6F  76  55  72 

1179 

046C' 

20 

«i30 

046D' 

03 

1181 

046E' 

5D 

1182 

046F’ 

FF 

1133 

0470' 

F8  07 

1134 

0472’ 

A7 

1135 

0473' 

F8  00 

1136 

0475' 

3C 

1187 

0476' 

57 

1183 

0477' 

27 

1139 

0473' 

57 

1190 

0479' 

OE 

1191 

047A' 

FB  FF 

1192 

047C' 

CE 

1193 

047D' 

3C 

1194 

047E' 

S2 

1195 

1196 

347F' 

D4 

1197 

0480' 

04BB' 

1198 

0482' 

2D 

1199 

0483' 

8D 

1200 

0434  ' 

CA  0479' 

1201 

0437' 

9B 

1202 

0438  - 

CA  3479’ 

1203 

343B' 

K 

1204 

:43C' 

^  it  0 1  .A  c 

1205 

043F' 

97 

1206 

0490’ 

3D 

1207 

3491' 

37 

1208 

0492' 

AO 

1209 

1210 

0493' 

D4 

12ii 

0494' 

019D’ 

1212 

0496  ' 

CA 

1213 

0497' 

43  52  43  20 

1214 

0493' 

30  20 

1215 

349D' 

3D3D 

1216 

049:' 

r; 

1217 

04A0' 

CO  003S' 

1213 

04A3' 

1219 

34A3' 

D4 

1220 

04A4' 

0130’ 

1221 

:4A5' 

^.A 

«  •  ^ 

A  iti  A 

04A7' 

4D  65  6D  6F 

1223 

04A3' 

72  79  20 

1224 

04AE' 

69  7j  22  63 

1225 

0432' 

6C  55  51  ’^2 

1226 

0436' 

6  w 

1227 

0437  ’ 

FF 

1223 

04B8' 

CO  308E' 

1229 

1230 

1231 

04BB' 

E7 

1232 

04BC' 

4E 

PAGE  1-21 

1986  BTU2.SAC 


DB  'over  ' 

:B  I3H 
DB  09CH 
DB  OfFB 
LDI  LOlf  CRCLfl 
PLO  GFAGE 
GDI  LOH  OOB 
?8I  SC 
S7R  GPAGE 
DEC  GPAGE 
STR  GPAGE 
CLOOPl:  DDS  SS 
XRI  QFrH 
LSZ 

PHI  RC 
SEX  STACX 
CALL  CRCSUB 


DEC  SD 
GLO  RD 
L3MZ  CLOOPl 
GHl  RD 
L3SZ  CLOOPl 
GHI  RC 
L5Z  SAYCLS 
GHI  GPAGE 
PHI  RD 
GLO  GPAGE 
PLO  ?D 
CALL  TTY 


DB  3CAS 
DB  'CRC  = 

DH  3D3:H 
D3  OFFH 
LBR  PROMPT 
SAYCLR:  CALL  TTY 


DB  OCAH 
DB  'Keiory  ' 

DB  'is  clear.  ’ 


DB  OPFH 
LBR  PROMPT 


CRCS’JB:  SEX  GFAGE 
LDA  RE 


;  over, 

:  ETX, 

:  IN4D, 

;  DONE 

;  CLEAR  "ALL  FF’S"  FLAG 
;  SET  CRC  HI  i  LO  =  3000 

;A  .NOP 


;  IS  MEMORY  SPACE  EMPTY  ? 

;  IF  NOT,  TYPE; 

:.R,  L7 
:  CRC  = 

;  OUT  YID  RD  X2 

;  DONE 

;  I?  CLEAR,  TYPE:  C 

Meiori  is  clear 

:  DONE 

;  GO  TO  PROMPT 

;  CRC  CALC'JLATION  SUBROUTINE 


1 

J 

I 

I 

I 

> 

I 

1 

1 

i 


1 

f 


r 
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1233 

04BD' 

23 

XOR 

1234 

94BE' 

27 

020  GPAGE 

1235 

043f' 

57 

STR  GPAGE 

1236 

0400' 

■6 

S2R 

1237 

34C1' 

:6 

SBR 

1233 

04C2' 

?6 

SER 

1239 

04C3' 

26 

SER 

1240 

04C4' 

23 

ROR 

1241 

04C5' 

57 

STR  GPAGE 

1242 

04C6' 

22 

SHL- 

1243 

0407’ 

22 

SHL 

1244 

0408' 

22 

SHL 

1245 

0409' 

22 

SHL 

1246 

04OA’ 

60 

IRX 

1247 

040B' 

60 

IRX 

1243 

0400' 

23 

XOR 

1249 

3  4011' 

27 

320  GPAGE 

1250 

0402' 

73 

STXD 

1251 

04OF' 

72 

LDXA 

1252 

04D0' 

26 

SER 

1253 

0401' 

26 

SER 

1254 

0402' 

26 

SER 

1255 

0403  ' 

23 

XOR 

1256 

0404' 

73 

STXO 

1257 

3405' 

20 

LOX 

1253 

3406' 

22 

SHL 

1259 

C40T 

SEL 

1260 

0408' 

r? 

SHL 

1261 

3409' 

22 

SEL 

1262 

34DA' 

22 

SHL 

1263 

3403' 

XOR 

1264 

3400' 

50 

IRX 

1265 

3400 ' 

60 

IRX 

1266 

0402' 

73 

STXO 

1257 

EXIT 

04Df ' 

05 

1269 

1270 

1  * 

1272 

1273 

' 

1274 

0420' 

EEL?:  CALL  TTY 

1275 

0420' 

04 

♦ 

1276 

3421  ' 

0190' 

* 

1277 

3423  ' 

65  60  ■13 

33  'eip' 

1278 

0425' 

CA 

OB  OCAH 

1279 

3427' 

42  54  55  20 

03  ’3TO  MONITOR' 

1280 

0423' 

40  42  42  49 

1281 

0422' 

54  42  52 

1282 

0422' 

CAOA 

3*  OCACAH 

1283 

0424’ 

53  79  73  74 

03  'SysCei  Couands:' 

1284 

04F8' 

65  60  20  43 

1285 

0420' 

62  60  60  61 

1286 

0500' 

62  64  73  3A 

1287 

0504' 

OA 

DB  OCAE 

1288 

0505’ 

20  24  61  61 

03  '  $aaaa  (Run  1  aaaa) 

*ILE  tktikliltatttsttttitttttcittttttttxtitt 


i 

I 

I 


! 
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1289 

0509' 

61  51  20  28 

1290 

3502' 

52  75  5S  20 

1291 

3511’ 

40  20  61  61 

1292 

3515' 

61  61  29 

1253 

! ' 

W  A  ^ 

CA 

OB  flCAH 

1294 

9519' 

20  21  52  75 

03  ’  .'Run  target  systea  i' 

1295 

05113’ 

6B  20  74  61 

1295 

0521' 

72  57  65  74 

1297 

0525’ 

20  73  79  73 

1298 

3529’ 

74  55  60  20 

1299 

0520’ 

23 

1300 

052E' 

081? 

Dif  TARADR 

1301 

0530’ 

29 

OB  '!’ 

1302 

0531’ 

CACA 

3«  3CACA8 

1303 

0533' 

4D  65  60  6? 

DB  'Reaory  Coaaaads:' 

1304 

0537  ’ 

72  79  20  43 

1305 

0538' 

it  50  60  61 

1306 

053F' 

6E  64  73  3A 

1307 

0543  ’ 

CA 

03  OCAB 

1308 

0544' 

20  2E  40  6F 

OB  '  .Kove;  .Yetify;  .Raa  Test 

1309 

0548  ’ 

76  55  JB  20 

1310 

054C’ 

2E  56  65  72 

1311 

0550’ 

59  56  79  3B 

1312 

0554’ 

20  2E  52  61 

1313 

0558' 

50  20  54  65 

1314 

055C' 

7  3  74 

1315 

355S' 

CA 

DB  OCAfi 

1315 

055?' 

23  21  40  51 

OB  '  iSaaaa  id;  ' 

1317 

0563' 

61  61  61  20 

1318 

0567' 

64  64  3B  20 

1319 

3568' 

20 

1320 

356C' 

20  3?  40  61 

OB  ■  'Kaaaa  am' 

1321 

0570' 

61  61  51  23 

* 

A  «  0  d 

3574' 

68  68  68  68 

1323 

357  8' 

CA 

OB  OCAH 

1324 

0579' 

20  40  65  60 

DB  '  Jleaory  protect' 

1325 

0570’ 

6?  72  79  20 

1326 

0581’ 

70  72  6F  74 

1327 

0585' 

65  63  74 

1328 

3538' 

CA 

03  OCAH 

1329 

0589’ 

20  3F  43  72 

OB  ’  ?Crc  calc' 

1330 

0580' 

63  20  63  61 

1331 

3591' 

6C  63 

1332 

0593' 

CAFF 

OK  DCAFFH 

1333 

0595' 

CO  303E' 

L38  PROUPT 

1334 

1335  ; 

5336  'ititttittttttitttttiitttttitittttttttttttttttttttttttttttititt 

1337  ; 

1333  dENORy  PROTECT  ARD  SSABLE 

1339 

1340  3598'  ffEKSAV:  CALL  TTY  iTVPE;  (texCl 

1341  0598’  D4  - 

1342  3599'  019D’  ♦ 

1343  0598’  55  50  5?  72 

1344  059F'  79  20  2D  20 


DB  'aioij  -  ' 


DB  'Protect  or  Enable' 
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1345  05A3'  50  72  6F  74 

1346  05A7'  65  63  74  20 

1347  05AB'  6F  72  20  45 

1348  05AF'  6E  51  62  5C 

1349  0533'  65 


1350 

3534' 

20  23  50  20 

OB  '  (P  or  El  ?  ' 

1351 

0538' 

6F  72  20  45 

1352 

95BC' 

29  20  3F  20 

1353 

35C0' 

03rF 

ON  03FFH 

;  ETX,  DOSE 

1354 

CALL  TSRE? 

1355 

05C2' 

04 

+ 

1356 

05C3' 

023A' 

t 

1357 

CALL  ITB 

;CALL  INPUT  TEST  AND  3RANCH 

1358 

05C5' 

04 

+ 

1359 

05C6' 

0180' 

+ 

1360 

05C8' 

50 

DB  'P' 

;  IF  P,  GO  TO  PTECT 

1361 

05C9' 

05OA' 

ON  PTECT 

1362 

05CB' 

45 

DB  'E' 

:  IF  E,  GO  TO  ENABLE 

1363 

05CC' 

0502' 

OH  ENABLE 

1364 

05CE' 

FF 

OB  OFFH 

1365 

05CF' 

CO  008E' 

LBR  PROMPT 

;GO  TO  PROMPT  IF  SOT  ?  OR  E 

1366 

: 

1367 

05D2' 

F8  00 

ENABLE:  LDI  00 

1368 

35D4' 

3B 

PlI  RB 

1369 

05D5' 

F8  01 

LDI  01 

1370 

0507' 

A3 

PLO  RB 

:SET  PROTECT  FLAG 

1371 

0508' 

30  DE' 

BR  SETPC 

1372 

350A' 

F8  00 

PTECT:  LDI  00 

1373 

05DC' 

A3 

PLO  RB 

1374 

0500' 

33 

PHI  RB 

:SET  ENABLE 

1375 

flSOE’ 

SSTPG:  CALL  TTY 

;TYPE:  CR,  LF,  (text) 

1376 

35DS' 

04 

■f 

1377 

05DF' 

0190' 

+ 

1373 

05E1' 

CA 

03  0CA3 

1379 

05E2' 

46  72  6:  60 

OB  'Froi  page  ’ 

1380 

05E6' 

20  70  51  57 

1381 

05EA' 

55  20 

1382 

05EC' 

03 

DB  ETX 

1383 

05ED' 

90FF 

OH  9DFFH 

:  IN4D,  DONE 

1384 

05EF' 

30 

GLO  RD 

1335 

05F0' 

JE 

PHI  RE 

;SET  CURRENT  PAGE 

1386 

CALL  TTY 

1387 

05F1' 

04 

1333 

35F2' 

3190' 

- 

1389 

05F4' 

6F  76  65  72 

DB  'over  ' 

::y?E:  (text; 

1390 

05F8' 

20 

1391 

05F9' 

03 

03  ETX 

;  ETX 

1392 

05FA' 

90 

DB  09DH 

;  IN4D, 

1393 

05FB' 

20  70  61  67 

3B  '  pages.' 

;  pages., 

1394 

05FF’ 

65  73  2E 

1395 

0602' 

03FF 

DH  03FFH 

;  ETX,  DOSE 

1396 

0604' 

30 

GLO  RD 

1397 

0605' 

AC 

PLO  RC 

1398 

0606' 

C6 

LSNZ 

1399 

0607  ' 

FC  01 

ADI  01 

1400 

0609' 

AC 

PLO  RC 
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1401 

CALL  MEKC3G 

1402 

960A' 

D4 

1403 

06flB' 

0616' 

1404 

060D’ 

CO  008E' 

LBR  PROMPT 

1405 

; 

1406 

,* 

1407 

SEKORY  PROTECT  OR  EHABLE  SUBROUTINE 

1408 

; 

1409 

; 

1410 

0610' 

46 

mm: 

LDA  LIST 

/PASS  ENABLE  BIT 

1411 

0611' 

AB 

PLO  RB 

1412 

0612' 

46 

LDA  LIST 

;?ASS  START  PACE 

1413 

0613' 

BE 

PHI  RE 

1414 

0614' 

46 

LDA  LIST 

;?ASS  t  OF  PAGES 

1415 

3615' 

AC 

PLO  RC 

1416 

: 

1417 

0616' 

E3 

XEMCHG: 

SEX  PC 

:SSLECT  SYSTEM  I/O  GROUP 

1418 

0617' 

61 

OUT  CROUP 

1419 

0618' 

37 

DB  SYSTEM 

1420 

* 

1421 

0619' 

EE 

SEX  RE 

1422 

061A' 

3C 

HEXPG: 

GLO  RC 

1423 

0613' 

32  39' 

BE  MDONE 

1424 

0610' 

9S 

GHI  RE 

:ALUAYS  ENABLE: 

1425 

361E' 

?3  57 

XRI  STXPG 

:  iTACXPAGE 

1426 

0620' 

dC 

32  SETS 

1427 

0622' 

*  u 

GHI  RE 

1428 

0623' 

FB  56 

XRI  GLOPG 

;  GLOBAL  PAGE 

1429 

3625' 

32  2C' 

32  SETQ 

1430 

0627' 

33 

GLO  RB 

1431 

0623' 

2A  2C' 

3N2  SETQ 

.•PROTECT  OR  ENABLE  • 

1432 

362A' 

'A 

REQ 

:  PROTECT  ->  J  =  0 

1433 

0623' 

38 

SR? 

1434 

062C' 

73 

se:q: 

SEQ 

;  ENABLE  ->  J  =  1 

1435 

0620' 

67 

OUT  MEMORY 

::;0  =  MEM.  PROTECT 

1436 

362E' 

7A 

REQ 

1437 

362F' 

9E 

GHI  RE 

1433 

0630' 

FC  31 

ADI  01 

1439 

0632' 

BE 

PHI  RE 

1440 

3633' 

3C 

GLO  RC 

*  1  »  « 

0634' 

F:  31 

Gx:  01 

1442 

3636' 

AC 

PLO  RC 

1443 

'  Lii 

3637  ' 

30  lA' 

3R  KEXPG 

1445 

0639' 

■3  3A 

BONE: 

LDI  LOU  GRPSAV 

; SELECT  UART  I/O  GROUP 

1446 

063B' 

A7 

PLO  GPACE 

AND  STORE  ON  GLOBAL  PAGE 

1447 

063C' 

■8  36 

LDI  'JARTS 

1443 

063E' 

57 

STR  GPAGE 

1449 

063F' 

£7 

SEX  GPAGE 

1450 

0640' 

61 

OUT  GROUP 

1451 

EXIT 

1452  - 

0641' 

D5 

t 

1453 

1454 
1455. 
1456 


ttititttttttttititttttitttt  ROUTIHE 


! 
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1457 

0642' 

RAMTST-  CALL  TTY 

1453 

0642' 

D4 

1459 

0643' 

019D' 

t 

1460 

0645' 

CA 

DB  QCAH 

1461 

0646' 

52  61  6D  20 

DB  'Rai  Cast  - 

start  at  ' 

1462 

064A' 

74  65  73  74 

1463 

364S' 

20  2D  20  73 

1464 

0652' 

74  61  72  74 

1465 

0656' 

20  61  74  20 

1466 

065A' 

03 

DB  ETX 

1467 

065B' 

9DFF 

D«  9DF?H 

1468 

065D' 

9D 

GHI  RD 

;Start  address  to  RB 

1469 

065E' 

BB 

PHI  RB 

1470 

065F' 

8D 

GLO  RD 

1471 

0660' 

AB 

PLO  RB 

1472 

* 

1473 

CALL  TTY 

1474 

0661' 

34 

+ 

1475 

0662' 

019D' 

r 

1476 

0664' 

20  4F  56  45 

DB  '  OVER  ' 

1477 

0668' 

52  20 

1473 

066A' 

03 

DB  ETX 

1479 

066B' 

9DFF 

D»  BDFFH 

1480 

1481 

0660' 

9r 

L3SET:  GHI  RF 

:Gec  rand  itey  froi  RF 

1482 

366S' 

33 

PHI  R8 

1433 

* 

1434 

066F' 

9B 

GHI  RB 

:Start  address  to  RB 

1435 

0670' 

39 

PHI  R9 

1486 

0671' 

33 

GLO  RB 

1437 

0672' 

A9 

PLO  R9 

1438 

; 

1439 

0673' 

9D 

GHI  RD 

iLengtIi  to  RA 

1490 

0674' 

BA 

PHI  RA 

1491 

0675' 

3D 

GLO  RD 

1492 

0676' 

AA 

PLO  RA 

1453 

1494 

0677' 

uDuOOPi  oAbL  RAND 

1495 

0677' 

D4 

* 

1496 

0678' 

06CA' 

• 

1497 

1498 

367A' 

98 

GHI  R8 

1499 

0673' 

59 

STR  R9 

1500 

0670' 

19 

INC  R9 

1501 

067D' 

Ik 

DSC  RA 

1502 

067E' 

3A 

GLO  RA 

1503 

067?' 

3A  77' 

BRE  LDLOO? 

1504 

0681' 

9A 

GHI  RA 

1505 

0682' 

3A  77' 

3NZ  LDLOOP 

1506 

J 

1507 

1508 

0684  ' 

9F 

CHXSET:  CHI  RF 

1509 

0635' 

98 

PHI  R8 

1510 

0686' 

9B 

GHI  RB 

1511 

0687  ’ 

39 

PHI  R9 

1512 

0688' 

8B 

GLO  RB 

I 

I 

I 

I 


I 

I 

I 

I 

I 

I 

I 

I 

} 

I 

I 

I 

I 
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1513 

0689' 

A9 

ISli 

D68A' 

3D 

1515 

0683' 

3A 

1516 

063C' 

3D 

1517 

068D' 

AA 

1513 

066E' 

1519 

068E’ 

D4 

1520 

068F' 

36CA' 

1521 

0691' 

•9 

1522 

0692' 

98 

1523 

0693' 

F3 

1524 

0694' 

3A  AD' 

1525 

0696' 

19 

1526 

0697' 

2A 

1527 

0633  ' 

3A 

1523 

0699' 

3A 

1529 

069B' 

3A 

1530 

069C' 

3A  8E' 

1531 

1532 

069E' 

9F 

1533 

069F' 

38 

1534 

1535 

OSAO' 

D4 

1536 

06A1' 

36CA' 

1537 

:oA3' 

98 

1533 

06A4' 

3F 

1539 

1540 

OSA:' 

D4 

1541 

06A6' 

319D' 

1542 

36A8' 

2A 

1543 

06A3' 

OOFF 

1544 

36AB' 

30  60' 

1545 

1546 

06AD' 

A8 

1:47 

1542 

06AE' 

D4 

1549 

06AP' 

319D' 

1550 

0631' 

CAFF 

1551 

0533' 

32 

1552 

3634' 

3D 

1553 

1554 

0635' 

D4 

1555 

0636' 

019D' 

15:6 

3638' 

21 

1557 

0539' 

20  51  ^ 

1558 

063D' 

FF 

1559 

063E' 

99 

1560 

365F' 

30 

1561 

06C0' 

39 

1562 

06C1' 

AD 

1563 

1564 

06C2' 

D4 

1565 

06C3' 

0190' 

1566 

06C5' 

8181 

1567 

36C7' 

FF 

1568 

36C3' 

30  96' 

FACE  1-27 

1986  3TU2.NAC 

FLO  R9 
CHI  RD 
?HI  RA 
CLO  RD 
FLO  RA 

CHR:  CALL  RAND 


SEX  R9 
CHI  X8 
XOR 

BNX  ERRLST 
CC.NTl:  INC  R9 
DEC  RA 
auO  RA 
BNZ  CHR 
GHI  RA 
BNZ  CHR 

F.ASSDN:  GHI  R: 

FBI  R8 
CALL  RAND 


GHI  R8 
FHI  RF 
CALL  TTY 


DB  '»■ 
ji  DONE 
:R  DDSET 

ERRLST;  FLO  R3 
CALL  TTY 


D*  OCAF.^H 
GLO  R3 
FHI  RD 

.Auj 


D3  38 13 
C3  ■  at 
DB  OFFH 
GHI  R9 
FHI  RD 
GLO  R9 
FLO  RD 
CALL  TTY 


DH  31B1H 
DB  OFFH 
3R  CONTI 
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1569 


06CA' 

•3  00 

RA!i2; 

LDI  00 

1572 

06CC' 

A3 

PLO  R3 

1573 

06CD' 

98 

G3I  R8 

1574 

05CE' 

3A  23’ 

3NZ  ONO 

1575 

u6D0' 

?3  ?F 

L2I  OFFH 

1576 

06D2' 

33 

PHI  R8 

1577 

06C3’ 

■6 

OSO: 

SKR 

1573 

0604' 

33  07' 

5NF  OHl 

1579 

0626' 

13 

INC  R8 

1580 

06D7' 

F6 

QNl: 

SHR 

1531 

06D8' 

F6 

3HR 

« id  8  ^ 

0629' 

33  DC 

3NF  2H2 

1533 

0603' 

13 

INC  R8 

1534 

06OC' 

?6 

2.V2: 

SKR 

1585 

0623’ 

33  EO' 

3NF  ONO 

1536 

062: ' 

13 

INC  R8 

1537 

06E0' 

•6 

0113 : 

SHR 

1538 

06E1’ 

33  E4' 

3NF  0N4 

1539 

06B3' 

13 

ISC  R8 

1590 

06E4' 

33 

0N4: 

GLO  R8 

1591 

06E5' 

F6 

SHR 

1592 

06E6' 

98 

OKI  R8 

1593 

j6E7 ' 

’’5 

RSER 

1594 

06-3' 

33 

PHI  R3 

•  •  •  • 

EXIT 

1596 

]6i9' 

25 

. 

1:9" 


l:9i 

160C 


i 
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MACROS: 


EXIT 

GEC 

IDLE 

LDC 

POP 

PPAGE 

POSH 

RLOI 

RLXA 

RSX 

RSXD 

SCAL 

SCSI 

SCM2 

SPMl 

3?M2 

SRET 

STM 

STPC 

TCAL 

TRET 

XID 

XIS 

SYMBOLS 

ASCIEX 

0113’ 

ASCRDl 

OlAC’ 

3ANGGR 

OOD4’ 

BRIST 

009E' 

BTU 

0000 

CALL 

0066' 

CHE 

068E' 

CHESET 

0684' 

CLCOPl 

0479’ 

CHVRT 

OlOE' 

CONTI 

0696' 

CRC 

0453' 

CRCHI 

5606 

CRCLO 

5607 

CRCRAM 

5605 

CRCSUB 

0433' 

CTOP 

0065' 

CTRLl 

0003 

CTRL2 

0005 

CTRL3 

0007 

CYCCNT 

0008 

DATAl 

0002 

DATA2 

0004 

DATA3 

0006 

DECCST 

028D’ 

3ELAY2 

0150' 

3LY00 

0040' 

DMA 

0000 

DONE 

OOFF 

OOTGR 

0037’ 

ENABLE 

05D2’ 

ERRLST 

06AD' 

ERROR 

02F3' 

ETX 

0003 

FINIS 

003A’ 

FORMTl 

0012 

GLOPG 

0056 

GP 

5600 

GPAGE 

0007 

GROUP 

0001 

GRPSAV 

560A 

GTR9 

0230’ 

HALT 

0006 

HDSTRT 

0000' 

HELP 

04E0' 

HEXRDl 

013A' 

HXCONV 

0222’ 

INS 

0432' 

INIST 

02D6' 

IN2ND 

02E3’ 

IN4D 

OOFD' 

IS4D2 

0101' 

IN4DT? 

0234’ 

IN4RET 

OlOD’ 

INADDR 

02C0’ 

INCHAR 

OOEl' 

INEND 

015C’ 

ISLE 

032D’ 

INTPC 

0001 

lOERR 

0082' 

lOLOC 

56FE 

ITS 

0180’ 

EEEP2 

OOED’ 

LDLOOP 

0677' 

LDSET 

066D' 

LIST 

0006 

LHEND 

02AF' 

LNTEST 

02A6' 

MATCH 

0171' 

MATCH2 

0196’ 

MDONE 

0639’ 

MEMCHG 

0616’ 

MEMORY 

0007 

MEMSAV 

0598’ 

NEMSUB 

0610' 

MENA3 

0017’ 

MC’/ 

0369’ 

MOVE 

0336  ’ 

MOVRTN 

0378’ 

NEVPG 

0013’ 

.YEX3YT 

0286' 

NEXPG 

061A’ 

NEXT2 

0184' 

SEXT3 

OlAO’ 

SO 

0424’ 

SOTHEX 

0137’ 

NUMBER 

0130’ 

OE? 

0407’ 

OERTN 

0421’ 

QNO 

06D3' 

ONI 

06D7’ 

ON2 

36DC' 

QN3 

06E0’ 

ON4 

06E4’ 

ODTADR 

0274  ' 

OUTASC 

021C’ 

OUTCA 

oisr 

OOTCHR 

0249’ 

OUTHEX 

OIBF' 

OUTPTI 

021E’ 

OUTPI2 

0130' 

PASSCA 

0324  ’ 

PASSDN 

069E’ 

PC 

0003 

PLEVEL 

5602 

PLIST 

0162’ 

PMTCHR 

0033 

PROMl 

0008 

PROMPT 

008E' 

PTECT 

05DA' 

gUESGR 

00C7’ 

gUESTM 

025D’ 

RAMTST 

0642' 

RAND 

06CA’ 

RSHI 

5608 

RBLO 

5609 

READDR 

0085’ 

RTN 

0076’ 

RTNPTR 

0006 

RTOP 

0075’ 

R'JH 

03F5’ 

SAYCLR 

04A3' 

SAYNO 

03F3' 

SCRT 

0057  ’ 

SCRTST 

0056’ 

SEMI? 

0310’ 

SETPG 

05DE' 

SETg 

062C’ 

SBTQl 

002D’ 

SETSL 

0007’ 

SETUP 

003D' 

SETURT 

0047’ 

SHFTD4 

013A' 

SHIFT 

Q13F’ 

STACE 

0002 

STARTl 

OOOE’ 

STATl 

0003 

STAT2 

0005 

STAT3 

0007 

STEEND 

57DF 

STEPG 

0057 

STORE 

0223’ 

SYSFLG 

5603 

SYSTEM 

0007 

TARADR 

081F 

TEST 

0183’ 

TEST$ 

0427  ' 

TEST90 

01A8’ 

TEST81 

01B5’ 

TEST8D 

01D4' 

TEST9D 

01E9' 

TESTAl 

OIPD’ 

TESTA2 

020E’ 

TESTCA 

OIDD' 

TESTCR 

031A' 

TESTDD 

01F2' 

TESTSP 

02FF’ 

THRE? 

024F’ 

TNATCH 

0163' 

TSRE? 

023A' 

TTY 

019D' 

DARTS 

0006 

UNADDR 

0084' 

7BAD 

03C7’ 

VCOIT 

03C2’ 

YERFY 

0373’ 

VMORE 

03BD’ 

VNEXT 

03AB' 

•4AIT 

0043’ 

NAIT3 

0152' 

NAIT4 

0233' 

NRITEM 

0237' 

YES?  0815’ 


NO  FATAL  ERROR  IS) 


ASCHEX 

4}9 

4474 

832 

851 

860 

ASCXDl 

58S» 

aASGGX 

}}B 

3844 

BCI 

}Ot 

EXIST 

}26 

3324 

37D 

1061 

159 

3X1 

30* 

CALL 

}0f 

256 

2644 

313 

316 

441 

512 

546 

539 

609 

71} 

744 

752 

764 

772 

844 

849 

855 

358 

862 

9}Q 

940 

947 

960 

970 

1074 

1077 

1089 

1092 

1100 

1209 

1218 

1274 

1340 

1354 

1518 

1534 

1539 

1547 

1553 

C5X 

15181 

1528 

1530 

CHXSET 

15084 

CID 

}04 

CIE 

}0« 

CLOOPl 

11904 

1200 

1202 

CHVRT 

412 

4374 

COSTl 

15254 

1568 

cxc 

}76 

11634 

cxcai 

1254 

CXCLO 

1364 

1183 

CXCXAM 

1344 

CRCSUB 

1197 

12314 

CTOP 

2634 

277 

CTRLl 

754 

233 

CTRLJ 

764 

CTRL} 

774 

CYCCIT 

504 

3ACI 

304 

3ADC 

304 

DADD 

304 

3ADI 

304 

DATAl 

674 

402 

412 

708 

717 

3ATA2 

694 

DATA} 

714 

3BHZ 

304 

DECCST 

786 

7894 

DELAT2 

417 

4994 

715 

766 

372 

DLYOO 

2244 

DRA 

414 

DOIE 

1444 

634 

377 

1013 

1098 

DOTGR 

346 

3534 

DSAV 

304 

OSBI 

304 

323 

332 

353 

369 

384 

425 

437 

616 

630 

639 

653 

668 

685 

693 

790 

799 

309 

827 

830 

334 

337 

870 

873 

885 

391 

900 

906 

918 

981 

992 

1008 

1030 

1040 

1049 

1058 

1103 

1128 

1135 

1141 

1163 

1175 

1195 

1357 

1375 

1386 

1401 

1457 

1473 

1494 

156} 


I 

I 

I 

1 

J 

1 

i 

1 

I 

I 

I 

I 

I 

I 


DSH 

301 

DSMB 

304 

DSJfl 

301 

DTC 

304 

•N&BLS 

1363 

13674 

3RRLST 

1524 

1546} 

SRBOR 

361 

3704 

396 

ETQ 

304 

m 

1434 

924 

934 

945 

915 

986 

EXIT 

304 

433 

466 

469 

492 

506 

718 

737 

912 

nil 

1114 

1155 

fISIS 

134 

2064 

FORSTl 

624 

239 

GEC 

304 

GLOFG 

1114 

130 

139 

211 

1423 

GP 

1304 

132 

133 

134 

135 

136 

GPiGS 

494 

212 

232 

234 

235 

303 

450 

453 

456 

459 

462 

464 

615 

657 

667 

675 

679 

632 

347 

353 

380 

903 

909 

1106 

1205 

1207 

1231 

1234 

1235 

1241 

GROUP 

554 

179 

207 

236 

1413 

1450 

GRPSA7 

1394 

231 

1445 

GTR9 

631 

6914 

HALT 

334 

HDSTRT 

1594 

1599 

HELP 

342 

12744 

EEXROl 

5964 

3XC0IV 

611 

613 

660 

570 

6794 

IDLE 

304 

IH$ 

11284 

IHIST 

3444 

343 

363 

332 

838 

:H2ID 

3554 

IX4D 

4224 

701 

746 

754 

1130 

IH4D2 

4254 

440 

444 

339 

IH4DT? 

641 

6934 

IS4RET 

430 

4334 

IHADDR 

3244 

833 

394 

IICHAR 

3974 

399 

427 

514 

543 

329 

IIXHD 

5124 

531 

ISLF 

9064 

911 

IHTPC 

424 

lOERR 

2984 

405 

416 

727 

lOLOC 

1414 

409 

575 

732 

ITB 

334 

355 

371 

386 

5464 

1359 

XEEP2 

401 

4094 

LDC 

304 

LDLGOP 

14944 

1503 

1505 

LOSET 

14814 

1544 

997 

1097 

1332 

521 

539 

553 

1267 

1451 

1595 

137 

133 

139 

305 

410 

411 

483 

524 

549 

634 

731 

733 

1123 

1124 

1184 

1249 

1446 

1443 

a46  351  902 


1391  1466  1473 

563  531  638 


141 

414 

423 

447 

576 

536 

603 

735 

320 

321 

1187 

1449 

1138 

1139 

908  1105 


I 


LIST 


550  555  560  1110 
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SEMOEY 
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MESSOB 
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NUMBEE 
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OX? 
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1578 

15808 
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CX3 

1585 

15878 

01(4 

1588 

15508 
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OUTASC 

664 
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OUTPTl 

648 

6758 

OUTPT2 

5858 

676 

PASSCA 

887 

853 

PASSDM 

15328 

PC 

448 

166 

281 

283 

PLEVSL 

1328 

PLIST 

5168 

518 

PMTCHE 

1488 

320 

POP 

308 

PPAGE 

308 

PEOMl 

1078 

PEOlPT 

3138 

348 

1083 

1144 

515  520  538 

305* 

1435 

555 

303 

615  635  642 

458  463t 

1143 


725»  730 

5001  505 

168  178  206 

285  1417 

527 
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661  671 


237  241  263 
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I 

I 

1 

J 

J 

1 

i 
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1361 

13724 
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336 

3694 
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374 

7444 

RASTST 

361 

14574 
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1496 

1520 

1536 

15714 

RSHI 

1374 

R3L0 

1384 

RSASDR 

298 

3024 

RLDI 

304 

824 

RLXA 

304 

RNX 

304 

RSZD 

304 

RTH 

258 

2824 

RTNPTR 

474 

265 

267 

270 

272 

533 

535 

536 

538 

562 

1148 

1151 

1153 

RTOP 

2814 

292 

RUN 

390 

10684 

SAYCLR 

1204 

12184 

3AYNO 

823 

10744 

1127 

SCAL 

304 

SCNl 

304 

SCN2 

304 

SCRT 

2504 

SCRTST 

169 

2494 

SENI7 

884 

8894 

SSTPG 

1371 

13754 

SETQ 

1426 

1429 

1431 

14344 

SETQl 

187 

190 

192 

1954 

SETSL 

162 

1654 

SETUP 

2114 

SETURT 

2314 

SHFTD4 

443 

4734 

336 

864 

SHIFT 

4774 

485 

SPNl 

304 

SPN2 

304 

SRET 

304 

STACK 

434 

253 

255 

264 

286 

597 

601 

602 

603 

612 

760 

762 

767 

780 

781 

STARTl 
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1714 

STATl 
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397 

709 
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724 

STKEND 
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STORE 

6844 
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i 

I 
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1094 
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1475 

1541 

1549 

1555 
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Appendix  If 

The  following  program  was  written  for  a  Hewlett  -  Packard  HP-16C 
calculator.  It  is  used  to  convert  data  in  the  Sea  Duct  buffer  to  engineering 
units.  Before  running  the  program.  Calculator  Register  .0  must  contain  the 
A/D  GND  value  and  Register  F  must  contain  the  A/D  +5V  value.  The  calculator 
must  be  placed  in  the  HEX  mode  before  each  conversion. 

Calculator  subroutines  A,  B,  C  and  D  are  run  to  give  the  following 
conversions: 

A  =  A/D  conversion  (12  bit)  C  =  Compass  conversion 

B  =  Battery  conversion  (8  bit)  D  =  Pendulum  conversion 

For  example  to  convert  an  A/D  value  of  3F8  to  engineering  units, 

(assume  A/D  GND  =  009  [R.O]  and  A/D  +5V  =  FEl  [R  F.]  ) 

1.  Press  HEX 

2.  Enter  3F8  -  There  is  no  need  to  hit  ENTER 

3.  Press  GSB  A 

4.  Read  the  answer  in  the  appropiate  units  (  1.24063  Volts  for 

this  example) . 

To  convert  a  compass  value  of  2C  to  degrees, 

1.  Press  HEX 

2.  Enter  2C  -  There  is  no  need  to  hit  ENTER 

3.  Press  GSB  C 

4.  Read  the  answer  in  the  appropriate  units  (  61.88  degrees  for 

this  example) . 

HP  16C  -  Sea  Duct  Programs 

A  =  A/D  conversion  (12  Bit)  HEX  to  Volts 

B  =  Battery  conversion  (8  bit)  HEX  to  Volts 

C  =  Compass  HEX  to  Degrees 

D  =  Pendulum  HEX  to  Degrees 

Note:  First  store  A/d  GND  in  RO,  A/D  +5V  in  RF  in  HEX  mode 


001 

002 

003 

004 

005 

006 

007 

008 

009 


43,22,  A 
21,  8 
4 
48 
9 
9 
7 

20 

43,21 


LBL-A 
GSB  8 
4 

9 

9 

7 

X 

g  RTN 


A/D  Program 
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010 

43,22,  B 

LBL-B 

oil 

21,  9 

GBS  9 

012 

21,  8 

6BS  8 

013 

3 

3 

014 

0 

0 

015 

20 

X 

016 

43,21 

g  RTN 

017 

43,22,  C 

LBL-C 

018 

42.  3 

f  UNSGN 

019 

36 

Enter 

020 

0 

0 

021 

42,45,  2 

£  float  2 

022 

3 

3 

023 

6 

6 

024 

0 

0 

025 

20 

X 

026 

2 

2 

027 

5 

5 

028 

6 

6 

029 

10 

* 

030 

43,21 

g  RTN 

031 

43,22,  D 

LBL-D 

032 

36 

Enter 

033 

0 

0 

034 

42,45,  2 

f  float  2 

035 

2 

2 

036 

20 

X 

037 

4 

4 

038 

5 

5 

039 

30 

- 

040 

43,  21 

g  RTN 

041 

43,22,  8 

LBL-8 

042 

42,  3 

£  UNSGN 

043 

36 

Enter 

044 

45,  .0 

Rcl.O  ( 

045 

30 

- 

046 

36 

Enter 

047 

0 

0 

048 

42,45,  2 

£  float  2 

049 

44,  .1 

Store  .1 

050 

23 

HEX 

051 

45,  F 

Rcl  F. 

052 

36 

Enter 

Battery  Program 


Compass  Program 


Pendulum  Program 
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053 

45,  .0 

Rcl.O 

054 

30 

- 

055 

0 

0 

056 

42,45,  2 

f  float  2 

057 

45,  .1 

Recall  .1 

058 

34 

XY 

059 

10 

• 

T 

060 

42,45,  5 

f  float  5 

061 

43,21 

g  RTN 

062 

43,22,  9 

LBL-9 

063 

42,  A 

f  SL 

064 

42,  A 

f  SL 

065 

42,  A 

f  SL 

066 

42,  A 

F  SL 

067 

43,21 

g  RTN 

8  bit  to  12  bit  conversion  routine 
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SEA  DUCT  PRE-LAUNCH  CHECK  LIST 


Deployment  Date 

Location  _ 

D^th  _ 


1.  MAIN  BATTERY  PACKS 
Pack  #1 

A.  Safety  Chain  On  _ Off _ 

B.  Top  of  Compensation  Oil  (Marcol) 

C.  Check  water  sanp  drain  plugs  for  security 

D.  Tie  wrap  any  loose  hoses  or  electrical  cables 

E.  Check  microprocessor  for  security  in  cradle 

F.  Check  microprocessor  compensation  diaphragm  for 
top  off  (Marcol) 

G.  Check  microprocessor  electrical  plugs  for 

full  seating,  milk  air  from  connector  if  necessary 

H.  Check  microprocessor  electrical  cables;  tie  wrap 
if  necessary 

I.  Check  all  tea  ci^  diaphragms  for  leakage  at  wires 
and  seals.  Top  off  as  required  (5  places) 

White  (Marcol) 

Red  (Mil  H5606  Hyd.  fluid) 


J.  Back  fill  battery  disconnect  with  (Marcol) 

Use  disconnect  at  base  uf  battery  to  force  all  air 
thru  plastic  check  valve.  Reconnect  to  drain 
fitting 

K.  Remove  battery  gats  vent  line 

L.  Install  disconnect  plug  in  battery  gas  vent  fitting 

M.  Remove  overflow  can 

N.  Check  pinger  battery  voltage 

O.  Reset  pinger  and  reinstall  dunny  plugs 


Initial 


I 
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Pack  #2 


Initial 


A.  Safety  Chain  On  _ Off _ 

B.  Top  of  Compensation  Oil  (Marcol) 

C.  check  water  sump  drain  plugs  for  security 

D.  Tie  wTcp  any  loose  hoses  or  electrical  cables 

E.  Check  anergency  battery  pack  for  security  in  cradle 

F.  Check  EHRS  battery  voltage 
Check  MP  battery  voltage 

G.  Check  emergency  battery  wiring  and  plugs  for  proper 
seating,  milk  air  if  necessary,  cap  unused  plugs 
and  wires 

H.  Check  all  tea  cup  diaphragms  for  leakage  at  wires 
and  seals,  top  off  as  required  (3  places) 

white  (Marcol) 

red  (Mil  H5606  Hyd.  fluid) 

I.  Back  fill  battery  disconnect  with  (Marcol) 

Use  disconnct  at  base  of  battery  to  force  all  air 
thru  plastic  check  valve.  Reconnect  at 
drain  fitting 

J.  Remove  battery  gas  vent  line 

K.  Install  disconnect  plug  in  battery  gas  vent  fitting 


L. 


Remove  overflow  can 


Pack  #3 


Initial 


A.  Safety  Chain  On  _ Off _ 

B.  Top  of  Compensation  Oil  (Marcol) 

C.  Check  water  sump  drain  plugs  for  security 

D.  Tie  wrap  any  loose  hoses  or  electrical  cables 

E.  Check  emergency  release  control  canister  for  security 
in  cradle 

F.  Check  emergency  release  wiring  and  plugs  for  proper 
seating,  milk  air  if  necessary,  cap  unused  plugs 
and  wires 

G.  Check  cylindrical  vertical  reservoir  for  security 
in  cradle 

H.  Check  all  1/8  inch  st/sl  tube  and  gland  nuts  for 
tightness 

I.  Back  fill  relief  valve  vent  tube  loop  with  oil  (Marcol) 

J.  Check  all  electrical  cables  for  security,  tie  wrap  if 
necessary 

K.  Check  all  tea  cup  diaphragms  for  leakage  at  wires  and 
seals.  Top  off  as  required  (4  places) 

white  (Marcol) 

red  (Mil  H5606  Hyd  fluid) 


L.  Back  fill  battery  disconnect  with  (^brcol) 

Use  disconnect  at  base  of  battery  to  force  all 
air  thru  plastic  check  valve.  Reconnect  at 
drain  fitting 

M.  Remove  battery  gas  vent  line 

N.  Install  disconnect  plug  in  battery  gas  vent  fitting 

O.  Remove  overflow  can 

P.  Check  pinger  battery  voltage 

Q.  Reset  pinger  and  reinstall  dummy  plugs 
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Hydraulic  Canister 

A.  Top  off  canister  with  (Marco!) 

B.  CSieck  all  seals  and  fittings  for  leakage 

C.  C3ieck  all  electrical  cables  for  leakage  at  Dancos 

D.  Check  all  electrical  cable  for  security;  tie  wrap 
as  necessary 

E.  Back  fill  relief  valve  hose  loop  with  (Marcol) 

F.  Remove  top  vent  line  from  over  flow  can;  plug  male 
disconnect  into  female  disconnect  on  PVC  relief 
valve  mounting  block 

G.  Disconnect  compensation  regulator  sense  line  at 
canister  base,  plug  in  free  flow  male  disconnect  fitting 
to  assure  regulator  feels  ambient  sea  water  pressure 

H.  Install  dead  ended  female  disconnect  into  swap  sense 
line  male  fitting 

I.  Open  valve  at  N2  compensation  accixnulator . 

1/2  to  3/4  turn  is  sufficient.  Do  not  open  further; 
a  stem  leak  could  occur. 


Relay  Canisters 

A.  Check  all  seals  and  fittings  for  leakage 

B.  Check  all  electrical  cables  for  leakage  at  Dancos 

C.  Check  all  electrical  cables  for  security;  tie  wrap 
as  required 


Initial 


D.  Top  off  all  canisters  as  necessary  (use  Marcol) 


V 


Main  Junction  Box  Initial 

A.  Check  all  seals  and  fittings  for  leakage  _ 

B.  Check  all  electrical  cables  for  leakage  at  Dancos  _ 

C.  Check  all  electrical  cables  for  security;  tie  wrap 

as  required  _ 

D.  Top  off  all  canisters  as  necessary  (use  Marcol)  _ 

E.  Insure  all  functions  are  "off"  on  external  manual 
control.  Remove  external  test  box  plug.  Clean 
'o'  ring  and  install  test  plug  cap.  Be  sure  'T' 
handle  plug  is  centered;  a  leak  will  occur  if  the 
plug  is  not  centered  in  the  step  machined  in  the 
cap  ring.  Install  durnny  plug  on  4-bin  Brantner 

connector .  _ 


^  Compensation  Systems 

A.  Pressurize  recirculating  pump  motor  accumulators 
with  3,000+  psi  N2 

B.  Pressurize  hydraulic  pump  motor  with  3,000+  PSI  N2 

C.  Check  all  lines  and  valves  for  leakage 

D.  Back  fill  accumulator  diaphragms  with  water  base 
hydraulic  fluid  as  required 

I nser t/Retract  System 

A.  Check  hydraulic  cylinders  and  hoses  for  leaks 

B.  Check  cable  and  turnbucklec  for  security  and  freedom 
of  motion 

C.  Check  cable  to  assure  they  do  not  hang  slack; 
adjust  if  necessary 

D.  Remove  3  lock  clamps 


Interface  Junction  Boxes  (5"  x  9") 

A.  Check  for  fluid  leakage  at  seals,  wires  and  dancos 

B.  Back  fill  with  (Marcol) 

Four  located  on  rotary  frame  A _ B _ D _ G 

Three  located  on  main  structure  C _  E _  P 


N-5 


Bottom  Contact  Switches 

A.  Check  for  freedom  of  motion  and  smooth  operation 

1.  One  bottom  contact  switch  with  contact  weight 

2.  One  rotary  frame  retract  switch 

3.  Four  test  section  insert  switches 


Hydraulic  System  Accumlators 

A.  Check  accunulators  for  leakage  at  fittings  and 
diaphragms 

B.  Cylindrical  acconulator  has  piston  with  (Red  Mil  H5606) 
on  system  side,  (water  base  hydraulic  fluid  in  flexible 
diaphragm) 

C.  Flexible  accordion  diaphragm  assembly  has  (red  Mil  H5606 
hydraulic  fluid  only) .  Replacable  filters  are  located  in 
the  upper  PVC  cap. 


Water  Vent  Flapper  Tees 


A. 

Check  flapper  valve  freedom  of  motion 

(8  flappers) 

Window  and  Lens  Cleaning 

A. 

Clean  camera  lens 

B. 

Clean  transmissometer  glass 

C. 

Remove  plywood  safety  covers  from  test 

section  top 

D. 

Clean  upper  test  section  glass 

E. 

Clean  side  ports  in  test  section 

F. 

Clean  photo  flash  port 

Rotary  Mechanism 

A.  Check  hydraulic  cylinders  and  hoses  for  leakage 

B.  Check  drive  chains  for  lubricant 

C.  Check  F/G  cover  cap  for  security 


Initial 
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Camera  System 


Initial 


A.  Charge  camera  battery  pack 

B.  Install  film,  set  data  chamber 

C.  Chcirge  photo  flash  battery  pack 

D.  Install  assemblies  on  x-y-z  traverse  mechanism 

E.  Install  control  cables;  tie  wrap  as  required 

F.  Turn  on  switch 

Water  Samplers 

A.  Hydro  products  butter-fly 

1.  Install  bag 

2.  Cock  mechanism 

3.  Hook  up  sample  tube  at  test  section  port 

4.  Remove  safety  clamp 

B.  Hydro  products  chop-stik  baggie 

1.  Install  bag 

2.  Wind  up  spring  mechanism 

3.  Cock  latch  mechanism 

Sediment  Samples  (two) 

1.  Retract  hydraulic  cylinder  until  it  bottoms  out 

2.  Retract  closure  doors;  install  safety  lock  link  (two) 
OU/nOH — Do  not  put  hands  or  fingers  into 

opening  at  base  of  sanpler. 

3.  Install  release  cable  loop  eyes  on  release  pins 

4.  Rotate  release  pin  mechanism  until  cable  eyes 
are  secure 

5.  Carefully  remove  safety  lock  link 
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Battery  Charge  Junction  Box  (A) 

1.  Check  penetrator  caps  (4)  for  full  seating; 

milk  air  from  connector  cap  if  necessary  (4  places) 


Shore  Power  Junction  Box  (B) 

1.  Check  penetrator  cap  (1)  for  full  seating;  milk 
air  if  necessary;  check  Banco  connectors 


Recirculating  Pump  Motors  (two) 

1.  Check  Banco  electrical  plugs  for  security 

2.  Check  plastic  N2  compensation  line  for  collapse 
water  tie  wraps;  correct  if  required 

3.  Check  plastic  N2  compensation  line  for  cracks 
at  inlet  fitting  to  motor 

4.  Open  veilve  at  N2  compensation  accumulator,  1/2 

to  3/4  turn  is  sufficient.  Bo  not  open  further;  a 
stem  leak  could  occur. 


Hydraulic  Flow  Bividers  (two  at  center  line  of  structure) 

1.  Visually  inspect  cylindrical  PVC  housings  and 
large  top  hat  bladder  for  leakage 

2.  Check  tube  fittings  at  top  of  both  assonblies  for 
leakage 

3.  Top  off  compensation  fluid  in  both  assemblies; 
use  Mil-H-5606  (Red) 


Recirculating  Pump  Motor  Controller 

1.  Check  electrical  plugs  for  proper  seating;  milk 
air  from  caps  if  necessary 

2.  Check  mechanical  security  of  pressure  housing 


Initial 


